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Finalmente insieme. 

Un'occasione da non perdere. 
Quest'anno a Bit Usa, 
la prestigiosa mostra di 
Home e Personal Computer americani 
si affianca VIDEO GAME USA. 
Un'edizione ancor più ricca e 
interessante, Vi aspettiamo perciò 
numerosi, dal 22 al 26 Maggio, 

presso if 

Centro Commerciale Americano. 
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COMMODORE 64, 

Fatti un regalo intelligente: un professionale, produce effetti 

computer dalle caratteristiche tridimensionali, 

eccezionali. Vediamole . 3. Ti diverti perchè è anche un 

1. Commodore 64 è potente, sofisticato videogioco, 

sofisticato, professionale. 4. Con Commodore 64 entri nel 

2. Ha un’incredibile memoria futuro, tasto dopo tasto. 

(64 K), un sintetizzatore sonora 
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ORA CHE CE L HAI... 


5. Ora hai una gamma di 
programmi già pronti ancora più 
vasta: lo usi nel lavoro , a casa, 

a scuola , in tante applicazioni 
dall’hobby al professionale. 

6. Commodore 64 oggi lo puoi 
avere a prezzo davvero speciale: 


approfittane però perchè sta an- 
dando a ruba, e chi primo arriva... 
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Forse la mia domanda può sem- 
brare un po 1 ingenua, ma la pon- 
go lo stesso. 

Per quale motivo Putente di 
un computer Commodore “de- 
ve” acquistare la vostra rivista? 
E quali sono i motivi per cui Vm 
tare di un programma deve sen- 
tirsi in dovere di inviare II listato 
a voi e non ad altre riviste del 
settore? 

(Riccardo D'Angelo - Verona] 

Precisiamo anzitutto che nes- 
suno “deve?" sentirsi in dovere di 
far qualcosa. Noi ci rivolgiamo 
adì utenti di sistemi Commodore 
per evitare che le loro meraviglio- 
se macchine corrano il rischio di 
venir abbandonate in un cassetto 
dopo le prime inevitabili difficol- 
tà. Siamo convinti che nessuno è 
un genio e che chiunque, a patto 
i: esser ben guidato, può raggiun- 
gere una competenza per nulla 
inferiore a quella dei “protesalo- 

■ ■^‘3 
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Accontentiamo comunque il 
le no re rispondendo alia deman- 
io per nulla banale, 

1 IL nome Commodore nella no- 
stra testata indica chiaramente 
che vengono trattati esclusiva- 
mente argomenti che riguardano 
:ih computer. Notizie su altre 
màcchine, dì interesse pressocchè 
nudo per i possessori di un Vìe o 
di un 64, non partecipano ad au- 
mentare il numero delle pagine e, 
di conseguenza, il prezzo della ri- 


vista. 

2/ Le 2.5 GO lire occorrenti per 
Tacquìsto del fascicolo rappre- 
sentano, considerando Pesclusivi- 
tà degli argomenti trattati, il 
prezzo più basso per entrare in 
possesso, mensilmente, di noti- 
zie, programmi, articoli di didat- 
tica, 

3/ AI contrario di altre riviste del 
settore, di ogni articolo e pro- 
gramma pubblicati viene sempre 
indicato il pome, cognome, indi- 
rizzo delfautore. Tale decisione è 
stata presa affinchè gli autori, e 
solo loro, possano raccogliere i 
frutti del proprio lavoro. E* infat- 
ti frequente il caso di lettori che, 
per vari motivi, non vogliono tra- 
scrivere i programmi dalla rivista 
e si rivolgono direttamente agli 
autori dei listati per l'acquisto 
dei programmi su supporto ma- 
gnetico. 

Un altro motivo per cui ven- 
gono pubblicati i nomi degli au- 
tori è quello di indicare, anche se 
indirettamente, alle ditte di in- 
formatica che li ricercano, nomi- 
nativi validi cui affidare incarichi 
di vario genere: stesura di pro- 
grammi, dimostrazioni presso ri- 
vendite, installazioni di sistemi 
p resse neo-acquirenti eccetera. 
Alcuni tra i lettori, da noi giudi- 
cati elementi molto validi, vengo- 
no addirittura indicati ad opera- 
tori del settore che chiedono 
con tinuamente alla Redazione 


nominativi di persone “in gam- 
ba”, Un paio dì lettori che hanno 
voluto seguire i nostri consigli, 
percepiscono orinai dalle SO alle 
150 mila lire al giorno,,. 

4/ 1 programmi che compaiono 
sulla rivista sono garantiti funzio- 
nanti: nessun listato viene pub- 
blicato se non precedentemente 
testato. 

5/ Commodore Computer Club è 
l’unica rivista che risponde alle 
domande dei lettori per telefono: 
un mezzo rapido ed efficace per 
ottenere informazioni in... tempo 
reale. 

6/ Gli articoli trattati sono alla 
portata di tutti: anche di colui 
che ha comprato ieri il suo Vie 
20. 

7/ I lettori più smaliziati invece, 
troveranno sempre articoli e pro- 
grammi che li possano interessa- 
re: la rivista, nel selezionare i li- 
stati, pensa anche a loro, 

8/ Varie iniziative (alcune delle 
quali ancora.-, segrete), vengono 
intraprese per rendere ancora 
più interessante ia rivista. 

9/ La Redazione promuove gra- 
tuitamente la diffusione di noti- 
zie riguardanti Club di vecchia e 
nuova formazione: basta telefo- 
nare per approfittare di tale op- 
portunità. 

10/ Per ora basta cosi: gli altri 
motivi validi per acquistare la no- 
stra rivista li trovi sfogliandola... 

Alessandro De Simone 
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COMMODORE 64, ORA CHE CE LHAL 

GUARDA CHE CI FAI 
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Solo Commodore ti dà Magic 
Desk. Guarda che facile. Sullo 
schermo appare una mano in 
animazione. Prendi i! joystick 
e la muovi indicando gli oggetti 
della scrivania. Con sole due dita 
dai tutte le istruzioni. Macchina per scrivere: il tuo 
Commodore 64 adesso funziona come una vera 
macchina per scrivere elettrica, con tanto di effetti 
sonori. Cassetti: archivi le pagine che hai battuto in 
uno dei classificatori. E le richiami quando vuoi. 

Stampante: le tue pagine sono stampate auto- 


lavori con Magic Desk. Non è semplicemente favoloso? 



COMPUTER 



mancamente sulla stampante 
Commodore. 

Cestino: il computer 
cancella tutto quello che non 
ti serve. Orologio. Hai il costante 
controllo del tempo mentre 
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L articolo pubblicato nel nume- 
ro scorso (Tecniche di overlay) 
descriveva* in maniera succinta, il 
modo in cui il Vie ed il Commo- 
dore 64 gestiscono i dati, ed in 
particolare le variabili. 

In queste righe illustreremo in 
modo più approfondito i concet- 
ti appena accennati servendoci di 
una serie di programmiti! sem- 
plici e di immediata comprensio- 
ne utilizzabili sul Vie 20 come 
sul Commodore 64, 

Esame dei puntatori (pro- 
gramma l);dovrebbe esser noto 
che i byte 43 e 44 puntano ai- 
ri n izio del programma basic, 
mentre 45 e 46 puntano alla sua 
fine. In effetti i byte 45 e 46 
puntano alPmìzio delle variabili, 
ma* dato che queste sono alloca- 
te a partire dal byte successivo 
airultrma locazione basic, offro- 
no comunque una valida indi- 
cazione per Individuare il termine 
di un programma. Digitate il pro- 
gramma 1 e battete RUN. Esami- 
niamo ciò che accade (figura 1) 
non senza aver dato dapprima 
una definizione; diremo che una 
variabile è “dichiarata'* quando 
viene nominata per la prima volta 
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nel corso di un'elaborazione al- 
Fin terno di un programma basic. 
Ciò significa che nei caso del mi- 
croprogramma che segue: 

100 À= 1 00: B=3,4S6: 
A$=“PROVÀ” 

La prima variabile ad essere di- 
chiarata è “A”, la seconda “B” t 
la terza À$, Osserviamo, invece, 
il caso seguente: 

100 ÀH00 


HO GOSUB 200 

120 B-456: CS-“PRIMO ,s 

130 < > * 

140 , . , 

200 0 34.87: D$-“SECQNDO” 
210 RETURN 

/Apparentemente ['ordine di di- 
chiarazione delle variabili sembra 
essere: 

A, B, C$, C, DS 

Seguendo invece la struttura logi- 
ca del programma, il computer 
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cos’è, 

come lavora 
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con i grafici 

Hardware? 
No, Superware 

“C”, linguaggio 
per gli anni ’80 
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Il linguaggio passe-partout 
dei computer degli anni ’ 80 




incontra dapprima la variabile A, 
ma, subito dopo, grazie a CO- 
SI) B 200, memorizza “C” e 
“D$” Solo al “ritorno” dalla 
subroutine incontra “B” e “C$”. 

Quanto detto giustifica iì mo- 
rivo per cui, nei listati pubblicati, 
si è preferito comunicare imme- 
diatamente, nelle primissime ri- 
ghe, i nomi delle variabili che sa- 
ranno adoperate nel corso del- 
I ’elaborazione dei singoli pro- 
grammi Il sistema operativo, co- 
me infatti vedremo, alloca una in 
coda alfaitra le variabili che a 
mano a mano incontra. 

T orniamo al programma 1 ed 
esaminiamolo nei dettagli; 

Riga 130 - dichiarazioni variabili. 
Si noti la variabile AS realizzata 
servendosi di una concatenazio- 
ne. Ciò serve per “costringere” il 
sistema operativo ad allocare i 
byte costituenti la stringa stessa 
in una zona estranea all'area del 
programma Basic, 

Righe 140 - 160 ; Dimensiona- 
mento di tre vettori di variabili 
intere, virgola mobile e stringhe 
lunghi ciascuno 20 elementi (non 
si dimentichi infatti la posizione 
“zero”). 

Righe 170 - 305 , Stampa dei ri- 
sultati, la visualizzazione (ripor- 
tata nella figura 1) evidenzia in 
modo chiaro lo spazio occupato 
dalle variabili all’interno della 
memoria RAM. 

Si precisa che i risultati di fi- 
gura 1 si riferiscono al Commo- 
dore 64. I possessori di Vie 20 
noteranno altri valori. Ciò è do- 
vuto al fatto che gli indirizzi di 
partenza dei due computer sono 


diversi. Gli stessi utenti del CBM 
64 potranno notare valori diffe- 
renti. Il motivo deve essere ricer- 
cato nel fatto che i valori indicati 
cambiano a seconda della lun- 
ghezza del programma basic. E’ 
infatti sufficiente che, nella tra- 
scrizione del programma, un solo 
byte venga digitato in più o in 
meno affinchè la lunghezza cam- 
bi (caso dei REM non trascritti, 
spazi bianchi tra istruzioni, ecce- 
tera), 

P roprio a tal proposito il letto- 
re può verificare le differenze esi- 
stenti digitando un maggior nu- 
mero di righe, variabili, matrici, 
stringhe, Ad ogni modifica ap- 
portata si potranno notare varie 
cose interessanti. Ne accenniamo 
alcune: 

1/ aumentando o diminuendo il 
numero di righe basic, o alteran- 
do la loro lunghezza, Pinizio del 
basic non varia mai. 

2/Apportando variazioni viene mo- 
dificato, invece, P indirizzo del- 
P ultimo byte basic. 

3/ Se viene variato il puntatore di 
fine basic, vengono modificati 
tutti gli altri puntatori della 
quantità eguale alla variazione 

della lunghezza del programma. 
4/ Ogni variabile (intera, decima- 
le, stringa) occupa sempre sette 
byte. Si deduce che la differenza 
tra i valori dei puntatori di fine 
ed inizio variabili è sempre un 
multiplo di sette (oppure vate ze- 
ro nel caso non siano state di- 
chiarate variabili). 

5/ I puntatori di inìzio e fine 
stringhe coincidono nel caso in 
cui le stringhe dichiarate siano al- 


locate alPinterno dell’area del 
programma basic. Se invece, co- 
me nel listala presentato, esse 
rappresentano il risultato di una 
elaborazione di stringhe (LEFTS, 
RJGHTS, somme, eccetera), la 
differenza tra i puntatori coinci- 
derà col numero dei caratteri co- 
stituenti le stringhe dichiarate, 

6/ I vettori occupano uno spazio 
diverso a seconda della propria ti- 
pologia. 

• Vettori di variabili intere , Ogni 
vettore occupa il numero di byte 
seguenti: due per il nome del vet- 
tore o matrice pluridimensionale; 
due per indicare il numero di 
byte occupati dall’ intero vettore; 
una per indicare il numero delie 
dimensioni (max = 256); due per 
ciascuna dimensione: ognuna di 
tali coppie ha il compito di indi- 
care il numero di valori occupati 
dalla dimensione interessata. 

Per ogni vettore dichiarato di 
variabili intere si ha pertanto un 
minimo di sette byte (con fun- 
zioni di “indice’ 1 ) necessari, al si- 
stema operativo, per ottenere in- 
formazioni sul vettore stesso. Ol- 
tre a quelli esaminati bisogna, ov- 
viamente, aggiungere due byte 
per la memorizzazione di ciascun 
valore dd vettore. Come è noto 
con due byte è possibile memo- 
rizzare valori interi compresi tra 
-32768 e +32767. 

• Vettori o matrici di valori deci- 
mali Il numero di byte di “indi- 
ce” sono gli stessi di quelli delle 
matrici intere (minimo 7). Cam- 
bia il numero dei byte per cia- 
scun valore decimale: cinque in- 
vece di due. 

• Vettori stringhe r Idem per i 
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...e a maggio 


TI REGALA 






Corri dal più vicino distributore 
R hòne-Pouienc Systemes (vedi 
l'elenco all'interno delia rivista} e 
riceverai un dischetto. Fletette® 
da 5" 1/4. In alternativa potrai 
ottenere uno sconto dei 15% su 
una confezione di 10 dischetti da 
5" 1/4 o da 8". 

Perchè sia valido il presente 
coupon va completato in tutte le 
sue parti. 


Computer 

quando smanettare non basta 
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AREA VARIABtU 


E.E£a.CiASgliNAì. 


NOME VARIASI LE 


VALOftÉ ÈSTERO 


INtEflG 


VAEÙFIE 

neciwit 


vaio m. decimale 


STRINGA 


i AREA BASIC 


FUNZIONE 


Link linea Basic successiva 


Numerazione linea 


Istruzioni Basic 


0+80 

1 


Codice termine linea (0) 


ULTIMO 


programma (0.0,0) j$ 


ULTfMfTRE Codice termine 




TAVOLA DEGLI INDIRIZZI 
PEEK (XJ+PEEK (X+1)‘256 


Inizio Basic 


matrici 


matrici 


52 Inizio stringhe 


Fine stringhe 


Finemem. RAM I 


TIPO Di 
VARIABILE 


INTERA 


ADDICE AKH 


DECIMALE 


STANGA 


CODICE ASSI 





OIM 

ag n.i) 


DIM 

ARfcl 1> 







OC ICE ASCII l 12B 
OPP'JPF 1?tì 


COD CE ASCI? 
OPPURE 0 


-CODICE ASCtl+1 26 
OPPURE 1 2Ò 


VARIABILE 




ROM DEL SISTEMA OPERATIVO 
LINGUAGGIO BASIC, GESTIONE I/O ecc 
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ORGANIZZAZIONE 
DEI DATI 
NEt COMPUTER 
COMMODORE 
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byte di indice; il numero per cia- 
scun demento del vettore è fissa- 
to invece in tre: il primo indica il 
numero dei caratteri della stringa 
esaminata, gli altri due individua- 
no V indirizzo del primo byte in 
cui è allocato il primo di essi. 

I 1 lettore, per verificare quanto 
asserito, può modificare a piaci- 
mento le linee 130-160 inserendo 
o cancellando linee, dichiarando 
altre variabili, dimensionando in 
modo vario più matrici. Dopo 
aver effettuato la variazione, digi- 
tando RUN> sarà facile effettuare 
un controllo sui mutamenti avve- 
nuti, specialmente pei ciò che ri- 
guarda gli indirizzi di inizio e fine 
basic, variabili, matrici e stringhe, 

Nel caso particolare del prò- 
gramma N. 1 le tre variabili di- 
chiarate (À, ÀSj A%) rendono 
appunto pari a 3*7-21 la zona 
RAM dedicata ad esse. Il vettore 
A $(19), d’altra parte, occupa 
7+3*2G+-ó7 byte, mentre A( 1 9) 
richiede 7+20*5*107 e A%(19) 
7+20*2=47 locazioni di memoria 
per un totale di 221 byte. Tale 
valore, aggiunto alPindirizzo di 
inizio matrici, fornisce appunto il 
valore del puntatore di fine ma- 
trici. 

Prima fase 

H same variazione puntatori 
(programma 2). 

Il secondo listato presentato 
ha lo scopo di dimostrare che i 
puntatori del sistema operativo 
vengono alterati durante Feìabo- 
razione dello stesso programma. 
Si noti infatti la subroutine 
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300-350: questa, quando viene 
richiamata, visualizza su schermo 
i valori dei puntatori che sono at- 
tivi in quei particolare momento 
de d'elaborazione. Si noti inoltre 
che per il calcolo si è evitato il 
ricorso a variabili, proprio per 
rendere più comprensibile il lista- 
to stesso. Esaminiamolo in detta- 
glio: 

Riga 140. Prima che una qualsiasi 
variabile venga dichiarata, sì uti- 
lizza la subroutine 300, Il risulta- 
to dimostra che, almeno in que- 
sta prima fase, i puntatori di ini- 
zio e fine variabili coincidono, 
proprio perchè non ve ne sono. 
Riga 150. Vengono dichiarate 
due variabili intere (AA% BB%). 
Righe 160-170, Il nuovo rinvio 
a 1 la subroutine 300 evidenzia 
l’occupazione di 14 byte nel- 
l'area destinata alle variabili. 
Righe 170-180: Nuovo incremen- 
to dei puntatori di fine variabili 
(ó dichiarate fino a questo mo- 
mento). 

Righe 190-200. Dichiarazione dei 
valori di due variabili precedente- 
mente dichiarate in riga 170. Si 
noti che i puntatori rimangono 
inalterati dimostrando che, una 
volta che una variabile numerica 
viene dichiarata, successive modi- 
fiche del suo contenuto non alte- 
rano il numero di byte destinati 
all’occupazione da parte delle va- 
riabili interessate. 

Righe 220-280 t Utilizzando le 
stesse variabili che individuano i 
puntatori e ricorrendo ad un ci- 
clo FOR...NEXT con STEP di 7 
( mu 1 tiplo di occupazione dei 
byte), vengono visualizzati i con- 
tenuti delle locazioni dì memoria 


riservate alle variabili* 

L a prima delle due lettere che 
compaiono (in reverse) rappre- 
sentano il nome della variabile. 
Tra parentesi sono raffigurati i lo- 
ro valori del codice interno Com- 
modore, L'ultimo dato (in rever- 
se) del primo rigo rappresenta 
P indirizzo del primo byte conte- 
nente il nome delia variabile. ÀI 
rigo successivo vengono visualiz- 
zati i contenuti dei sette byte in- 
teressati dalla variabile. Fate at- 
tenzione al modo di allocare il 
nome delle variabili. Si noti inol- 
tre il fatto che, nel caso di varia- 
bili intere o stringa, alcuni byte 
(gli ultimi) sono sempre posti al 
valore nullo. 

A nche in questo caso il lettore, 
data la versatilità del programma 
proposto, può divertirsi a modifi- 
care la riga 1 50 inserendo altre 
variabili intere, decimali, stringa 
dai nomi più bizzarri: il segmen- 
to di programma 220-270 visua- 
lizzerà in ciascun caso ciò che 
succede all’interno del calcolato- 
re quando vengono dichiarate le 
tre tipologie di variabili. 

Proviamo ora, avendo in me- 
moria ancora il programma 2, a 
dichiarare (riga 150) le seguenti 
tre variabili dallo stesso nome: 

AA%, Aà, ÀAS 

Una volta dato il consueto 
RUN ci accorgiamo che nel pri- 
mo caso il nome viene visualiz- 
zato come due lettere A maiusco- 
le. nel secondo con due minusco- 
le mentre nei terzo caso la prima 
è maiuscola e la seconda minu- 
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«-** STUDIO DEI PUNTATORI! *** 

* l -; QUANTITÀ 1 01 MEMORIA OCCUPATA DAL *#* 
r.-£M h-i-m BASIC E DA DIVERSE VARIABILI. *** 
A=1£!A$= ■" + ” 1234567330 " sAM= 123 
DIMA*' 1S5 : r CRA^CTO I 3 * ftSK A > *A$I NEKT 
O r.MfX Ì.?i i r-rt['.vr-0TOl3J A < A >«ft jNCHT 
:■ ì r i-v. ;< : j j t fora - e to ; 3 : am< a > = a ; t ìe.;;t 

rRINT'^INIZIO BASIC " FEEK-I 43) +PEEK< 44 > 4296 

PC ì UT " 8T I ME BASIC * FCCK( 45 ) f?EEK< 46 ) *£36 

PR IHP IHICIO VAR 1 AB ILI 1 ' 

PR lì ~ " W I MC DELLE Vftr , " PCEK< 47 > +PEEK< 46 > *256 
PR I NT " ; r ; 12 10 MA TP. IC I ” 

P P I MT " IT ì NE MATRICI * PEEK< 43 > +PEEKC 5® > *256 

PR I NT "231 MIC IO 3 TP I NORIE " PEEK< 5 I > +PEEKX 52 > *£56 


P R P IT " BT I ( C S TP 1 MG HE 
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£50 

PWiNT"lFìWE MEMO 

R I M 

**a. a4-a a—% 

£-\ C -J 

P^ÌKfM VAR 1 GB I L 

E INI 


PR I NT ■ l VtìREfrBlL 

E 5TT 

i U. j.1 

^T— -rr 1 ffa-» 

r-R I W n 1 VETTURE 

CI £0 

P i 

rp i r-JT f 'C £ *D0 4 7 > “ : 

REM n 

EL E.- 0 

pr:nt"i vetture 

D I £0 

235 

pr?!NT« < 5*20+7 , >i? 


330 

I NT 11 i VETTORE 

C! £0 

3C3 

PR 1 NT * l 3 *£0 + 7 ) ,J 

i 


RtfìDY, 



PEEK< 53 ) +FECKC 54 ) *256 
FEEK< 55 ) +PE£K< 56 > *£56 


17' T 7 T E 

BAU 

;c 

E04S 

"INE 

Bn: 

JC 

3350 

jnti re 

VAP 

INDILI 



F • ■ O 
IM17 

CELLE V/V?. 

I 0 Kfl PR I C I 

33? I 

F I ■ 

f ’HTFì IC I 

313Z 

114*7 

re stringhe 

40750 

r i; r. 

STR ) 4GKE 

4076© 

7 i jp 

MEI OR Ih 

4-3363 


1 VARIABILE INTERA , i Iti VIRQ.MOB 
i VAR I ABILE STRINGA DI 10 CARATTERI 
1 VETTORE DI £10 VALORI INTERI 12*20 + 7) 

1 VETTORE DI £0 VALORI DECIMALI >15*20 +7) 
j VETTORE DI £0 STRINA 10 CAR . ) C 3*20+7) 
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100 REM ***■ ALLOCAZIONE DELLE VARIABILI NUMERICHE **# 

IIS REM *** PRIMA FASE 1 ESAME PUNTATORI DEL BASIC E DELLE *** 

123 'REM *** VARIABILI NEL CASO DI S DICHIARAZIONI 

130 : 

140 PRINT CHR$C 14> " i^R I MA DI DICHIARAZIONI”! SQ3UB 3(33 

150 A.-v>!30t BBX=3£767 

123 PRINT " SDORO OUE DICH." 

173 303UB 300! P I =P I i FF=PFS 1 = 1 : J = J 
130 PRINT "S30P0 SDIC,“! GOSUB 330 
130 PI*FEEKC 45 > iPÉEKC 46 ) *£5È 
=00 PF = PEEK/ 47 )-u=£EKC 43 >*256! GOSUB 300 
705 ! 

=33 PRINT ”3 ELENCO VARIABILI 

215 ! ■ ■ 

=£0 POR I=PI Tù PF-7 STEP 7 SPRINT "A"; 

236 PRINT CHRitPEEK CD) CIHR*C FEEKC I * 1 > > ”■ C " ; 

243 PRINT PEEKC I) PEEKC I H ? '• ) ” ; 

253 PRINT " a» I 

263 POR T= I T0 1*6! PRINT PEEKC 4 ) ; SNEXT J 
270 FRI NT: IEXT I 

V j 

230 PRINT: PRINT AAJC? BBX) PI J PF I I J J 

230 END ! REM A, DE SI MONE / DIDATTICA ’34 

235 RE M SUBR0UT1NE DI ESAME PUNTATORI 

353 PP.1MT ”aiMi2I0 DEL BASIC»" PEEK< 43J+PEEKC 44) *256 
3'0 PRINT "3= INE EA , = IN. VAR . ■" PEEKC 45) +PEEKC 46 ) *E5B 
320 PRINT 11 ^ INE VARIABILI ■" PEEK( 47 > +PEEKC 43 ) *256 
330 PRINT "RPEMI UN TASTO" 

343 !F PEEKC 137) =£4 THEN 340 
350 RETURN 
3© 3 1 

370 . ! 

3S3 : PROGRAMMA N .2 

READY. 


100 REM *:** SECONDA FASE! MODIFICA BYTE *** 

110 PCM **# RELATIVI A VARIABILI INTERE *** 

1 £0 ■ 

130 AA1C= i 06 ! PRINT CHR* C14) 

143 PR 1 NT" PUNTATORI VARIABILE"! GOSUB 360 
153 PRINT” BSD MODIFICA AA," 

163 PR IMT“£)MGD IF ICA PUNTATORI” 

173 GCT ASs IF Aì=“ 1" THEN G03UB 223!30TC 150 

ISO IF A$="2” THEN GOSUB 2S0! GOTO 150 ) 

193 GOTO 173 ’ ' 

230 ! 

£13 REM ### RINE MODIFICA VALORE 01 AAX 
223 INPUT "SAAJC- ■' } AA$S IF AA$= ,! *-“ THEN RETURN 
239 AA=VAL<AA*)i IP Aft>3£767 CR AA< -327SBTH2N223 
£40 AA*-Ì=AA: GOSUB 363: GOTO ££S 
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Un regalo per te! 

Insieme con il primo ordine per corrispondenza 

dal catalogo 

Soffi me & H. 

Software, periferiche, interfacce e accessori per 

Commodore, NewBrain, Siclalr e TI 99/4A 



Richiedi ora il tuo Catalogo Gratis. 

Affrettati, cè un regaio per te! 

3 cassette Ci 0 del valore di 3.900 lire 
con il tuo primo acquisto da! nostro nuovo catalogo 
che contiene oltre 100 articoli selezionati! 

Questa offerta scade il 15/5/84 

Ritaglia e spedisci subito ii tagliando 
con il tuo nome e indirizzo a: 


Soft ime A H» 

via Caglierò, 17- 201 25 Milano 



Registratore speciale per 

VIC 20 e CBM 64 

a sole L. 117.000, IVA e spese di spedizione comprese! 



I! famoso registratore Maxtron 
direttamente collegabile al VIC SO 

e al Commodore 64, 

ad un prezzo eccezionale e, soprattutto, a casa vostra 
entro quattro settimane. 

Solo un ordine per cliente. 

L’offerte scade II 15/5/84. 

In piu Gratis il catalogo Soffi me A H. 
software, periferiche, interfacce e accessori 

per Commodore, NewBraln, Sinclair 
e TI 99/4 A. 

Ritaglia e spedisci subito il tagliando 
con il tuo nome e indirizzo più L 1 17.000 
[assegno circolare o vaglia postale) a; 
Soffrirne A NU - via Caglierò, 17 - 20125 Milano 



HELIS 

SERVIZI PER L'INFORMATICA 


COMMODORE 64 
VIC 20 

PERSONAL COMPUTER 
PERIFERICHE COMMODORE 
ACCESSORI 



• CORSI DI PROGRAMMAZIONE 

• PRODUZIONE SOFTWARE 

• ASSISTENZA SOFTWARE 

• ASSISTENZA TECNICA 

• LIBRERIA JACKSON 


HELIS - VIA MONTASIO 28 - ROMA - TEL. 06/8922756 


fi Commodore 

v COMPUTER 


GRUPPO EDITORIALE 
JACKSON 




353 REM * w RINE MODIFICA BYTE VRR • RA^ 

8SG I MPUT “BYTE' 1 * AA$i AA = VAL< AA30 
"0 rp ri t-* 1 THEN RETURN 

230 I- AA >i+8 OR AA <1 THE! J2BS 
E 30 A1=*A? REM A, OE SI MONE DIDATTICA J 84 
zm INPUT '‘VALORE ft * A A $ * A A = V AL C AA$> 

313 I F R4:£= f '«- M THEN 260 
320 IR AA >253 OR AA <0 THEN30Q 
330 FQKE m,AAs GOSUB 3SO : GOTO 8G0 
340 i 

350 REM *** V I E U AL I Z Z A Z I ONE BYTE VAR . INTERA AAX 

SCO 1 -PEEKt 45 ) +PEEK ( 46 ) y£5&ì X 1 *PEEK< I>ì XS^PEEKC 1 + 1 ) 

S 70 r-R I NT "a" 1 ; X 1 CKR* < XI > 

3S0 RR I NT a h hi XE CHR$ C X2 ) 

350 TER J - I f- 2 TD MS: PRIMT " J PEEKCJM NEXT 

400 RR I NT " " A A% 11 ÈJMiaBBX«= 11 BB>I 

410 RETURN 


133 REM * * * TERZA FASE : MODIFICA BYTE RELATIVI *** 
110 REM *** A VARIABILI IN VIRGOLA MOBILE **# 
1E0 : 

130 AA= 1 00 s PRI NT CHR* (H) 

14 3 F R i NT " JRUNTATOR I VARIABILE": GOSUB 380 

ITO PRI NT "SI > MODIFICA A A h 

180 FRINT“£ ^MODIFICA PUNTATORI BT 

GET IF R$= 11 i " THEN GOSUB 220 : GOTO 150 

180 Ir THEN GOSUB SB0 5 GOTO 150 

130 GOTO 170 
303 s 

310 REM *** RINE MODIFICA VALORE DI AA 
820 I^UT >, S^A = i, /AA$ : IF " *■“ THEN RETURN 

230 ftfl=VAL< AASS) 

2^0 GOSUB 360 i GOTO 223 

250 REM *** RI NÈ MODIFICA BYTE VAR . AA 
EGO INPUT "»YTE " ; AA# : AA~VAL\ A Pr$ ) 

■H7S IF AA THEN RETURN 

28S IF A A >MS OR AA <1 THEM2S0 

230 A i •= A A * REM A ■ DE Si MONE DIDATTICA : 34 

3O0 INPUT "VALORE ,r ; AAT : A A = VAL< AA*> 

3:0 IF AAS* 1 ’*” THEN EoS 

3E3 17 Ah >355 OR Am <0 THE 14303 

USO P O K E Al.ftft: GOSUB 380: GOTO BBÙ 

34^ : 

330 REM *** VISUAL. BYTE VAR * VIRGOLA MOBILE AA 

380 I -PEEK* 45 ) +PEEK< 48 > *258 : X 1 “PEEKC I > : X2-FEEKY I + 1 ? 

370 PRINT ‘ £T I ? X 1 CHRS <XÌ) 

333 PRI NT *2" hi KB CHRT < KB) 

350 FGR J-M2 TO 1+6: PRIMT " 2" J "W PEEKC J > : NEXT 
400 PRI NT MaaRft«= "A A 14 8B 

4 I O RETURN 

READY. 
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HOTLINE UPDATE GARANZIA 

Tre nuove parole nel campo dell'Informatica. Esse rappresentano il 

- NUOVO SERVIZIO - 

che la Leoni Informatica, prima fra tutti offre ai suoi clienti. COMMODORE 64' 


HOTLINE 

UPDATE 

GARANZIA 


— linea telefonica dedicata alla risoluzione dei problemi dei clienti. 
Chiamando il numero telefonico riservato che troverete sulla cartolina 
garanzia acclusa ai programmi, riceverete tutte le informazioni che vi 
necessitano. 

— servizio di aggiornamento continuo dei programmi acquistati. Ogni modi- 
fica ai programmi realizzati dalia Leoni Informatica sarà fornita agii utenti 
degli stessi. 


— tutti i programmi Leoni Informatica sono coperti da garanzia a Vita contro 
guasti di origine. 


ALCUNI PROGRAMMI PER COMMODORE 64 


Cod, 

Descrizione 

Prezzo 

0152 

Gestione Studi Medici 

300.000 




0150 

Magazzino Dettaglio (2500 art.) 

380.000 




0159 

Magazzino Taglia e Colore 

380.000 

0047 

Gestione Anagrafiche 

120.000 

0160 

Eolie e Fatture 

300.000 

0050/c 

Totocalcio Sviluppo Colonnare 

80.000 

0162/c 

Screen Grafi x 

150000 

0051 /c 

Gestione del conti Casa 

100.000 

0163 

Copia Disco Singolo 

50.000 

QQS5/C 

Impariamo il basic 

100.000 

0165/C 

Assembler Disassembler 

80 000 

0056/c 

Dichiara zio ne Iva 

60.000 

0169/c 

Magazzeno alfanumerico (1100 articoli) 

250 000 

0063/ c 

Cento Programmi per il 64 

30,000 

0080 

Gestione Clubs Nautici 

250.000 

0064 

Compilatore Pet Speed 

80.000 

0081 

Gestione Officine 

400,000 

0065/c 

Fido Clienti 

100.000 

0087 

Gestione Ristoranti 

400.000 

0066 

Conto Corrente 

150.000 

0131 

Gestione Hotel /Pensioni 

400.000 

0067 

Gestione piano dei Conti 

150 000 

0132 

Gestione Parrucchieri 

400,000 

0066 

Gestione Appuntamenti 

150.000 

0133 

Gestione Gommisti 

400.000 

0071 

Gestione Ordini 

150.000 

01 70 

Gestione Tavola Calda 

400000 

0086 

Gestione Librerie 

150.000 

0171 

Gestione Lavanderia 

400000 

0090 

Mailing List 

150.000 

0155 

Gestione Condominio 

300000 

0091 

Rubrica Telefonica 

120.000 

0166/c 

Com paolo r 

50.000 

0094/c 

Gestione Scheda 4600 car. 

160.000 

0167/c 

Scorn pactor 

50.000 

0096 

Gestione Scheda Agganciata al Mailing List 

250,000 

0168/c 

PET Emulator 

35.000 

0116 

Scadenziario Effetti 

200,000 

0306/ c 

Character editor 

40.000 

0120 

Contabilità Fatture Iva/ Imponibile 

200.000 

0309/C 

Hìres imago 

40.000 

0121 

Contabilità Semplice 

400.000 

0310/ c 

Hard copy 

40000 

0136 

Legge 373 

150,000 

0312 

Master 64 

225.000 

0143 

Magazzino Grossisti (2500 art) 

380.000 

0313/c 

Tool 64 

85.000 

0144 

Magazzino Fatturazione Agganciate 

400,000 

0314/c 

Stat 64 

65.000 

0148 

Gestione Ottici 

300.000 

0157 

Cale Result Advanced 

350.000 . 

0149 

Gestione Dentisti 

300.000 

0319 

Easy Script 

125.000 

0151 

Gestione Farmacie 

400.000 

0322/C 

Forth 64 

65.000 


I programmi Leoni sono disponibili presso tutti i punti vendita MELCHIGNf ELETTRONICA 
Vendita per corrispondenza anche dell'HARDWARE 



20142 MILANO - VIA DON RODRIGO, 6 - TEL. 02/8407376 




‘.. l * — V L > V!1 - V-T- - A .. V ■ .'1 » ". ■ t* — SJ 

•• l .. — - w j I. » J H : •_ - Sii * : |J ■- ■ ! -• ■ A -* - H « L- . 

r 

n ■ m fìn • ■:<• i2,r4>,CAf ì e :> , c y 32 ) 


ss r 

■j- ■* A 


RE r ■ ■* r t 3UARTA FaSEii ESAME ALLGCRZ IGNE *«* 

1 : o r. r m + + * ma 7 r ì c i var ideili i hte re e no n ** * 

t20 : 

! 20 
1 43 
15? 

1GC : 

1 7' 7 FR !N7 CPPT7 1 1 > 

ì 55 X 1 ^CFT ' 47 > 1 PEEK/ 43 ) *253 : K£*PEEK< 43 > +PEEKC 50) 

153 PRINT w 3JLT INO BYTE OCCUPATO* 11 X£ 

200 PRiNT^anu PEEM X i .' CHR*< PEEK CXlv) ,! ® NOME” 

H FEEft'C X I 4 l ) ) "W VETTORE M 
* . , ETTE ' 




2 13 

PRINT ,N a" 

X 1 + 1 

FEEK-: X I v 1 > 

CHR 

20D 

PRUÌT s: 3" 

1. + J* J^*W. 

- . #1 -■ 

J «. Ih» 

rCEKINI 

,r * 

237 

PRINT J ST 

V - L 

p E E K y. 1 + 3 ) 

r* ^ 

^ 

Pu '" . *-■ 


4 4 2 ) H FEEK X 1 •: 3 ì * 

256 : 


O r'T -M i •» PCEK< XJ*2> :rCEK<X14S)*S56 


‘ J J 
■’. ju' 




r r un *■< r?c cupaz igne f ino a h xs i >l > t! 

PR T NT " a X i +4 M E s PEEK-l H1H)" D 1MEJM3 I CN I 


X3 ■= -M + 4 i P R I NT H & PEEK C X3 


E : 33 

r c p ì = 

3 JD 

PEEK-; X 

3O0 

1 F H2- 

Hi ~ 

X4 

THE 

7 17 

XI ; 

RE : : 

P . 

GL 

37 7 

FRI NT 

p *r-r 

r> -, ; 

UN 

-1™. "V 

JL* • .> i- 

T M B f»’ if* ■ F* 

ir ! s . i. 

17 

7; ( 

7 4 7 

™ j=: ■’i 
■ ■ ■-■ ■ 

■ 3 7 T 7 7 

7 0 



— ■ rr 

i ■ ■ aJ " “ 

i. 1 7T 1 

^ /”* 
a . V 




ì NEXT 


I MONE DIDATTICA 3 S4 


f i 


4* 


JL 

» ri 

J 1 ‘ , 


1 , r." 


F0N 4=** 


■ODIO allocazione: stringhe *** 


1 4 




p L 

3 03 
i 7C 
ICC 
130 
20? 
7 3 -7 

T “? ?? 

243 


r‘A$ = "3TR IfJQfì ” 

: ? i a X 1 : X£«X£l X = I i PR ! NT "■ J" 

X * - PEEKC 45 ? vPEEKl 46 > *256 
M£ = PEEi'.c. 47 5 +FEEKi 48 5 *256 
°R ! t ,‘T X ;■ " tf“ CHR$< PEEK< XI)) "S NUME 


"a“CHR^( PEEK< X 1 ■* 1 ) ) *'■ STR INCìfi " 
"LUN6. STRINGA =3“ PEEK<X1+E) 
“LA . INDIR . 3TR iN6P»a" PEEKC Y. ì -3) 
"Hfl - ÌND IR - STRINGA =3” PEEKC XI *4 ) 
'EEK< H M2) “il +" PEEK( X 1 +4 ) ''« * 
X2*PEEK< X ì *3 ) s PEEK.C X 1 +4 ) *256 ! PRir ITX2 "IDS" 
por I--G TO PEEK< X 1 +2 > - 1 • REM A . DE SI MONE 
PF *.■(- ”S~X £' * ! “*" CHR^C PEEK< X2+ £ > > * NEXT 
LIST :23 


.. iNT X li! 
FRI NT XI -2 
FR I f i~ X H3 

pc | f.|T S' ; ; 4 
PR I NT 11 " 


_ 'J ■ 

- f 


“ “ r - * 

.- E_ ^-M_' ■• T 
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scola. Questo modo di alterare la 
prima, la seconda o entrambe le 
lettere delle variabili, consente al 
sistema operativo del computer 
di capire quale dei tre tipi di va- 
riabili ha individuato. 

Seconda fase 

A Iterazione del contenuto dei 
byte interessati alFìmmagazzìna- 
mento delie variabili. 

Finora abbiamo assistito £l pas- 

Ifl 

sivamente”al modo 1 incuiil calco- 
latore gestisce la memoria RAM 
nel definire variabili di qualun- 
que tipo- Vediamo ora che succe- 
de se proviamo intenzionalmen- 
te, ad alterare il loro contenuto, 
À tale scopo digitiamo il pro- 
gramma N. 3. In esso {riga 330) 
viene definita una sola variabile, 
ma sarà più che sufficiente per lo 
scopo proposto. E’ ovvio che il 
lettore, con la propria fantasia, 
può apportare tutte le sofistica- 
zioni che ritiene opportune. 

Righe 140-190. Menu di scelta. 
Viene chiesta una delie due scelte 
possibili; 

H alterazione dei valore di ÀÀ% 
(dichiarata in riga 1 30); 

2/ alterazione dei singoli byte co- 
stituenti la variabile. 

Nel caso si scelga l’opzione 1, 
verrà richiesto un nuovo valore 
da attribuire alla variabile ÀÀ% 
(righe 220-240), E’ ovvio che 
vengono rifiutati valori che esco- 
no dall'Intervallo -32768 +32767 
(riga 230), Subito dopo il valore 
digitato viene depositato in AA% 
e la submarine 360 viene incari- 
cata di visualizzare non solo il 
nome della prima variabile di- 


chiarata (che, guarda caso, è pro- 
prio ÀA%), ma anche il contenu- 
to dei singoli byte relativi ad essa 
oltre al loro indirizzo. 

Digitando il carattere di frec- 
cia a sinistra (+) si ritorna al me- 
nu principale. Se ora si sceglie 
fopzione 2) si avrà la possibilità 
di alterare il contenuto dei singo- 
li byte. Modificandoli a caso si 
possono fare le seguenti deduzio- 
ni; 

a / alterando il contenuto degli ul- 
timi tre byte il valore di AA% 
non viene in alcun modo modifi- 
cato, Ciò dimostra che il sistema 
operativo, nel caso divariabili in- 
tere, £ 'guarda'' esclusivamente il 
terzo ed il quarto byte, 
b / Alterando il contenuto di que- 
sti due byte si ottengono (riga 
400) valori diversi di AA% . 
e/ Alterando i primi due byte (re- 
lativi cioè al nome della variabile) 
ci accorgiamo che il computer 
non riconosce più la prima varia- 
bile che incontra col nome AA% 
ma col nome che le abbiamo at- 
tribuito! Provate dunque (aven- 
do davanti a voi la tabella del co- 
dice ASCII e addizionando 128 
al valore del carattere tabellato) a 
modificare in tal senso i due 
byte, dapprima trasformando 
AÀ% in BB% (cioè 193-193 in 
194-194) e poi in altre lettere 
qualunque. 

T erza fase 

M edifica dei byte relativi a va- 
riabili decimali. 

II programma 4 è sostanzial- 
mente identico a quello N. 3. Le 
differenze consistono nel tratta- 


mento di valori numerici diversi. 

Quarta fase 

same allocazione delle matri- 
ci. 

Il listato 5, che non viene de- 
scritto in maniera approfondita, 
ha lo scopo di dimostrare che 
l’allocazione dei vettori segue le 
regole prima illustrate. Il lettore 
può verificarlo alterando la riga 
150 inserendo più vettori o di- 
mensionandoli diversamente. 

p 

L’automatismo del programma 
consente di esaminare, byte dopo 
byte, ciascun valore dichiarato. 
Diremo soltanto che, anche in 
questo caso, i primi vettori che si 
incontrano sono proprio quelli 
dichiarati seguendo l’ordine ''lo- 
gico” del programma. 

Quinta fase 

S tudio dell’allocazione delle 
stringhe. 

In quest’ultimo listato (N. 6) 
viene esaminato il luogo in cui i 
caratteri delle singole stringhe di- 
chiarate vengono depositati. Il 
lettore può provare ad alterare il 
contenuto della variabile AAS 
(riga 120), oppure a modificarlo 
ricorrendo a concatenazioni di 
più stringhe. Uno studio partico- 
lareggiato sull'allocazione dei vet- 
tori stringa non viene indicato dato 
che, a questo punto, il lettore, se- 
guendo la falsa riga dei program- 
mi pubblicati in queste pagine, 
può farlo da solo. ■ 

Alessandro De Simone 
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V ic 20 Senza Esp ansion i 


Elihelp 


I n un tunnel buio, percorso da 
missili che passano ogni 15 se- 
condi a diverse altezze, un elicot- 
tero deve salvare il maggior nu- 
mero possibile di omini, evitando 
le macerie sparse nei tunnel stes- 
so, illuminando il terreno e te- 
nendo d'occhio il consumo del 
carburante. 

Il movimento dell'elicottero è 
ottenuto con i tasti FI (in alto), 
F3 (in basso), F5 (avanzamento), 
F7 (lancio della scaletta). Que- 
st'ultimo comando è necessario 
per salvare gli omini stessi, Teli- 
co ttero infatti non atterra ma si 
posiziona a quattro caratteri sopra 
il livello del suolo e sgancia la 
scaletta di fianco all'omino da 
salvare. 

O gni movimento richiede un 
certo consumo di carburante: 
mezzo litro per sganciare lascaletta , 
scendere o illuminare, un litro 
per ogni avanzamento, un litro e 
mezzo per salire. AlTinterno del 
tunnel esistono però delle pìazzo- 
le di distribuzione del carburan- 
te, se si riesce ad atterrarvi si può 
fare un ** pieno" di venti litri. 

I n alto sullo schermo, appare il 
radar e in basso una sezione del 
radar ingrandita con il disegno 
de IT elicottero. Si noti che la se- 
zione è di 8 caratteri e il radar di 
8 punti (Bit), in altezza. 
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In questo modo si ha una per- 
fetta corrispondenza tra radar e 
sezione. [I radar segnala la parte 
“davanti ' del veicolo (essendo di 
due caratteri). 

La luce, come già accennato, il 
lumina da una altezza massima di 
3 caratteri dal suolo, distribuen- 
dosi a raggiera, se si vola bassi 
quindi si illumina poco. Avanzan- 
do si muove solo la posizione nel 
radar del veicolo e ovviamente il 
terreno (buio). Il terreno, cioè il 
percorso, è definito nella riga 
180-182: 

• A = ometto; 

• “diesis” = carburante; 

• B,C»D,E,F = elicottero e scalet- 
ta. 

Le cifre che appaiono sul vi- 
deo rappresentano il numero de- 
gli omini presi, i punti, il carbu- 
rante disponìbile. 

Il programma esce dalTaha ri- 
soluzione, con istruzione PGKE 
36869,240 se questo e altri pic- 
coli accorgimenti falliscono è do- 
vuto alla scarsa memoria: manca- 
no le istruzioni nel programma, i 
nomi alle cifre, l'uscita dall'alta 
risoluzione, eco* 

Descrizione 

110 - sistema i caratteri definen 
doli normalmente; 


120-1 75 - definisce i caratteri in 
hi-res; 

1 77-1 78 - assegnazioni e iniziali*- 
zazione variabili; 

180-182 - creazione del percorso 
(modificabile); 

198 - azzera i byte dei caratteri 
che formano il radar; 

200 - disegna il radar (come posi- 
zione); 

220-221 - disegna i contorni del 
radar e della sezione; 

224-228 - riempie il radar (il si- 
stema è simile a quello usato da un 
programma che disegnava grafici 
in alta risoluzione pubblicato sul 
numero 3 di CCC, tempo fa); per 
modificare ciò che il radar segna- 
la è necessario alterare la riga 225 
e in particolare la relazione del- 
T istruzione IF.., THEN# 

Come si può notare viene esa- 
minato carattere per carattere il 
percorso che è tre Uà stringa Dtdl 
meccanismo consiste ne! far fare 
l'istruzione dopo il THEN se si 
vuole che appaia sul radar il sim- 
bolo della stringa: se si vuole far 
apparire tutto tranne gli omini 
(A) si scrive: 

IF WS “diverso” da “A” THEN.*. 

se si vuole far apparire solo gli 
omini: 

1F WS = “A” THEN... 

se si vuole far apparire omini e 


carburante: 

!F WS - “A” OR WS - “diesis” 
THEN.., 
e cosi via, 

29 7 - assegnazioni variabili radar 
per l'elicottero; 

300-651 - ciclo principale, il loop 
è pieno di variabili “fantasma” che 
servono solo a segnalare la pre- 
senza di un certo fenomeno; 

357 - questa riga controlla il tem- 
po per far partire il razzo ogni 15 
secondi, ovviamente modificabile 
(attenti alla memoria); 


610-650 - algoritmo del radar: 

LI = codice del carattere; 

TI = altezza elicottero (come 

Bit); 

ZI = spostamento orizzontale 
(come Bit); 

K1 - locazione di memoria del 
Bit risultante; 

le variabili sono simili al primo 
“radar”; 

1502-1570 - subroutine LUCE; 
1 701-1760 - subroutine SCA- 
LETTA; 

1800-1820 - subroutine STAM- 


PA ELICOTTERO; 

1860 * il gioco termina: vengono 
sommati gli omino-punti e il car- 
burante risparmiato. 

Volendo si possono apportare 
tanti piccoli accorgimenti (ricor- 
rendo alla tecnica dell’overlay ), Il 
primo programma. In questo ca- 
so, potrebbe essere costituito dal- 
la definizione dell'alta risoluzio- 
ne, risparmiando al secondo mol- 
ta memoria. * 
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IISj FGRI=7I63TQ7e?3 5PCKEI ,PEEK< I +£5600 > ! NE WT 

180 FOR 1 =7 1S8T07S3 1 : RE AOA ! POKE I ,A : NEXT : DATA255 , 0 ,3 ,0 ,0 ,0 ,0 ,0 ,56 , 
186,146,188,56,5 6,43,133 

133 DATAB3 ,68 ,184,68,63,68, 1E4 ,68 ,255 ,£55 ,255 ,255 ,£55 ,255, £55 ,255 
140 DATA? ,160,35,167,0,0,0,1 ,255,32,254,242 ,£46 ,25£ ,73 ,254 
153 DATA32 ,32 ,254 ,£4£ , E46 ,£5E , 73 ,E54 ,0 ,64 ,£55 ,7 1 ,0,0,0, 1 
170 FOR I =74£4T07455 : REAOA s POKE I ,8 : NEXT i DATAB ,0 ,0 ,0 ,0 ,0 ,0,0,0 
F 0,0,0, ©fCfS/ESS 

175 DATAI ,£,£3,133,63,8,1 ,0, £55,255, 126 ,66 ,34 ,34 ,66 , 1£6 

177 CLR : P0KE3SSS3 ,255 ; N=3S87£ : P0KE36S73 ,15: RE =8064 : POKE3S879 , 10 : 
PRINT“U3":CE=387 34:V=150 

178 PR=80S7 : MR=0 : B= 1 : POKE56 ,£S : PQKE52 ,£8 : J = 1 : WS = 2 

■ di 

180 .0$=“* CBABEBCBA A DE A C B # B A C 68» BEB fi Pi 

C #A * 

1S1 D*=D$+’'» 8 tl fl OE fl fi D B AA DE# 6 A C A# A B 

C A 6F A #A” 

182 Dif =EI* "B A B A B # DE AA BCABA" 

1 38 FOR 1 =7848707483 : POKE 1,0: NEXT 

200 M= 10 :FORL=BTQEE s POKE7702+L ,M: M=N+ 1 : NEXT 

2£® FOR I =73S6TD7387 iPOKEI ,3 :ROKE 1 + 1 33 ,3 : NEXT: TI$ = "000000 " 

221 FOR ! =763070770 1 : POKE I , 33 : NEXT ; FOR I =7724T07745 : POKE 1,0: NEXT : 

Z =0 : L = 10 : G= 1 1 

224 U*=MI0*< D$,6, 1 > i 1FW^=“ “ THEN226 

825 !FW*< “THENK = 7 163 + L*3-i-7: POKEK ,£t( 7-Z 5+PEEKCKJ 

226 G = G + 1 : Z =Z + i : IFZ > 7THENL =L + 1 :Z=S: IFL=32THEN£8? 

228 G0T0224 

297 21=1 :T1=4:L1=10 

308 P=>PEEK< 187 ) : IFAQ= 1GRAX= 1THEN320 

301 IFP = 39ANDPE >S003THENPOKEPE ,32:P0KEPE+1 ,32 : PE = PE-E2 : POKEK 1 ,0 
STI =T1 + 1 s CE=CE -22 i y=V- 1 .5 

310 JFP = 4 7ANDPE< 8 1 1 3THENPOKEPE ,32 : POKEPE * 1 ,32 : PE = PE+2£ : POKEK 1,0 
:T1=T1-1 SCENDE +££ :V=V-.5 

380 1 FR =3£THENX = 7 : GOSUB 1 50£ 

324 IFAX= 1 OR J 1 = 1THEN330 
■ 
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325 IFPEEKY PE +£3 > = 35 THEN 8 >-;= 1 ! V=V +20 

333 POKEPE , 7 ! POKEPE + 1 ,6 : POKEN, 1 30 ! POKEN, 0 : POKECE ,5 : POKECE + 1 ,5 
343 IFF=55THENZ 1 =Z 1 + 1 : B=B + 1 ! OP = B : J1 =0 5 V=V~ 1 

350 PR I N T ■■ ■’ M I D*C 0 *,B, 22 >,: : IFRO= 1 THENPQKEPE + 88 , 32 

353 PR I NT " afflfflB" 3 p CC 14 )" '* i PR I NT “ MB * SPC< 14 )V" 1 I * 

356 IFWS- 1 THEN 363 

357 !FMI0*c TI* ,5 ,2 ) = “ 15“0RMID3K TI*, 5 ,£ ) = "30 "0RMID4K TI*,5,£ > = "45 " 
ORMIDK TI*, 5, 2 >= " 58 "THEN 360 

35-9 G 0 T 0361 

363 Wfl=C INTARMO»: 1 > #7 > *22 ) +7939 ! LdY=W 3 + 22 * WS = 1 


3S 1 I FWS< > 1THEN40O 

363 POKE WY , 32 s WY= WY- 3 s PGKE WY , 34 : lFWY=Wft+ 1THENP0KEWY,32 * WS =2 

364 IFPEEK( WY-1>=50RPE£K< WY- 1 > =7THEN1 850 
400 IF30 = 1THEN60SUB 1S00 

4 13 1F8X =0ORJ 1 * 1 THEN530 

420 POKECE +23,2 : POKEN, 250 : JX=JX+ 1 : POKECE +23 ,2 : POKEN, 0 : 1 F JX -6THENBR = 0 : 
JX = 0S J 3 = 1 

580 POKEPE ,4 JPCKEPE+ 1 ,5 : PQKEN,£00 : PGKEN,0 ! FOKECE ,5 : POKECE + 1 ,5 

534 IFQF = 1THEN6 18 

585 IFP s *63THEt'lXY=£ i GOSUB 1 70 1 

610 IPZ 1 =8THENL 1 =L 1 + 1 : POKEK 1 ,£t( ?-Z 1) JZ 1=0 

620 IFL 1 =32THEN1860 

630 K 1=7168+L US+( 7-T1 ) : I FV< 2GTHENP0KEN ,250 
653 POKEK 1 ,2 1< 7-Z 1 > : 3FV*; =0THEN135B 
651 GCTO300 

1502 V=V-Ìi IFFE>814 1THEN1540 


1505 POKECE +22 ,X: POKECE +£3 ,X ! POKECE+E4 ,X 
1503 IFPE >sll3THEN1540 

1511 POKECE +43 ,X ! FOR ì =CE +44TQCE +46 ’■ POKE I ,X : NEXT; POKECE + 47 ,X 
151? IFPE>3097TNEN1540 

1523 POKECE +64 ,X :FOR I =CE+65T0CE +63 : POKE I ,X ; NEXTi POKECE +73 ,X 
1540 for I =H55TQ 1235TEP - 1. i POK.EM, I < NEXTi POKEN, 0 


1545 IFPE >307 5THEN 1570 
1570 RETURN 

17S1 V=V- . Ss FORU= ÌT02i IFU=2THEMXY=32 

1732 IFPEEKI FE+S3 >=3TH£N1740 

1705 POKEPE +23 , XYs POKEN, 130 

1703 1FPEEKI PE+45>=3THEN1740 

1710 POKEPE +45, KYiPOKEN, 200 

17 18 IFPEEK< PE+S7 ) =3THEN1740 

1720 P0KEPE+S7 ,XY!P0KEN,2 10 

1725 IFPEEKC PE +33 > = 1 THENnO = 1 rQP = l : S = 3 +23: 0=0+ 1 ;PR S,‘ O 


1 P0 = PE+S7 : GOTO 1 760 
1740 NEH TU 
1 730 RETURN 

1830 POKEPO+22 ,32 J POKE PO , 1 J P0 = P0-22 ! I FFO=PE + 1 THENi=iQ=0 : POKEPE +23 ,32 
1820 RETURN 

1850 PR 1 nt " i'wwiM 11 a ; F n P I = 255T0 12SSTEP- 1 JPOKEM+ 3,3* NEXTi POKEN+ 1 ,0:END 
1360 PR I NT " JgBMia " S “ + "V" =”S+V!POKEN,0 S END 


RE3DY. 
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Vie 20 & Commodore 64 



Restore LN 


u distruzione molto utile che 

manca al basic del Vie 20 è la 
RESTORE LN, cioè la possibilità 
di lar eseguire al computer un re- 
store non alla prima linea di data 


ma ad una qualsiasi linea da noi 
desiderata. 

Dell’ utilità di questa funzione 
ci si accorge dovendo gestire più 


tabelle di costanti in “frasi” DA- 
TA in quanto la semplice istru- 
zione Restore costringe a noiosis- 
simi calcoli per potere rintraccia- 
re la tabella successiva. Esistono 


100 

REM 

*.***»•***##**+ 

£80 

REM DATA ERROR 

1 10 

REM 

* TEST 1 4 

£70 

LN”3 1 5 * GOSUB83500 

i£0 

REM 

ti**:*#**#***:#* 

£30 

REAOfiS SPRINT f-S 

130 

REM 


£30 

REN 


140 

REM 

SIMULAZ IONE 

330 

E NO 


3 58 

REM 

ERRORE! MANCA 

310 

QATAUNO rOUE 

160 

REM 

LA LINEA LN 

3£0 

BATATRE ^QUATTRO 

170 

REM 


330 

OftTAC IMQUE ,SE I 

180 

RESTOREI PRlNT u *i" 

1000 

al 

fe 


190 

FORK 

= 1X06 

1010 

REM 

INSERIRE QUI 

£00 

REAOA$:RR INT‘a"A$; 

i 020 

REM 

DI SEGUITO LA 

£10 

NEXT 

1030 

REM 

ROUTINE PUBBLICATA 

£20 

REM 

UN ULTERIORE 

1040 

REM 

< DA RIGA 63500 

£30 

REM 

READ A* 

1050 

. REM 

FINO A 63528 ) 

£40 

REM 

CAUSEREBBE 




£50 

REM 

UN OUT OF 

READY. 



inoltre moki programmi nei quali 
compare distruzione Restore N 
non presente nel Basic Commo- 
dore* 

L a semplice routine proposta 


permette di simulare tale istru- 
zione in modo da renderla opera- 
tiva, 

I_jìdea di principio di questa 
routine nasce da un esame dei 


puntatori nella pagina zero dei 
6502 e da come vengono memo- 
rizzate le linee di istruzioni basic 
nella memoria* 

I niziamo dalle locazioni di me- 
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moria 43 e 44, Queste indicano 
l’indirizzo di partenza del testo 
basic nella memoria ricavabile 
dalla formula: indirizzo - PEEK 
(43) + PEEK (44) *256. Tale in- 
dirizzo viene calcolato al momen- 
to dell'accensione della macchina 
dal KERNAL nelle locazioni 641 
e 642 e poi passato al Basic che 
pone tale valore 1 nelle locazioni 
prima citate 43 e 44, 

L indirizzo vale 4097 nel Vie 
non espanso, ma varia a seconda 
delle espansioni di memoria 
RAM inserite. 

P assiamo ora ad esaminare co- 

i 

me è organizzato il testo basic 
n e Ila memoria. Prendiamo ad 
esempio le seguenti istruzioni: 

10 REM 
20 PR1NT 
30 END 

S e esaminiamo la memoria del 
Vie potremo osservare la seguen- 
te organizzazione: 

P ossiamo ritrovare tutte le in - 
formazioni necessarie per compi- 
lare un programma che trovi un 
numero di linea e che controlli se 
in quel numero dì linea esiste una 
istruzione DATA* altrimenti ci 
dia una indicazione di errore. 

A ITinizio del programma ritro- 
viamo i puntatori 43 e 44 che^ 
guarda caso» nel Vie non espanso 
puntano alla locazione di memo- 
ria 4097 ove si trova l’ inizio della 
prima linea di programma. Pos- 
siamo inoltre notare nella tabella 


che a questo indirizzo troviamo il 
byte basso del link e in quello 
successivo il byte alto del link 
che ci indica dove si trova collo- 
cata in memoria la prossima linea 
basic. 



(jrazie a questi due byte possia- 
mo istruire la variabile NP che ci 
permetterà di trovare Pinizio del- 
la prossima linea senza dovere 
scandire tutta la memoria. 

La variabile PC indica invece la 
corrente linea» cioè indica T indi- 
rizzo di partenza della linea che 
stiamo attualmente esplorando, 

P ossiamo controllare a questo 
punto se il numero della linea 
esplorata è quello che desideria- 
mo e facciamo questa operazione 
controllando prima il byte aito 
del numero di linea (in questo 
modo la routine viene eseguita 
più velocemente in quanto è me- 
no probabile trovare un byte alto 
cui corrisponda quello basso erra- 
to che non viceversa) e poi quello 


basso. 

Se l'operazione non riesce PC 
diventa NP cioè passiamo ad esa- 
minare la prossima linea. Se ab- 
biamo trovato il giusto numero 
di linea controlliamo se c’c effet- 
tivamente una istruzione di DA- 
TA altrimenti mandiamo un mes- 
saggio di errore c terminiamo il 
programma. 

Coca accade se nel programma 
non esiste la lìnea specificata in 
LN? Ad un certo momento il 
link che manda alla prossima li- 
nea di programma in memoria sa- 
rà uguale a 0 e con esso la varia- 
bile NP, Questo fatto ci avvertirà 
che il testo basic è finito senza 
che noi avessimo trovato il nume- 
ro di linea cercato. Anche in que- 
sto caso manderemo un messag- 
gio di errore e termineremo il 
programma. Se invece tutto sarà 
andato bene significherà che ab- 
biamo trovato il numero di linea 
cercato c che quel numero dì li- 
nea c’era l’istruzione DATA* po- 
tremo quindi risalire all’indirizzo 
in memoria ove esiste l’istruzione 
data cercata. 

|~A possibile eseguire questa ope- 
razione molto facilmente; pren- 
diamo ad esempio la seguente 
struttura: 

PC AAAA LOW LINK 
+ I HIGH LINK 

Questi puntano a BBBB - NP - 
+ 2 LOW N* DI LINEA 

+ 3 HIGH N* DI LINEA 

+ 4 NNNN DATA 
+ 5 A 
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+ 6 MARCATORE DJ 

FINE LINEA 
NP BBBB LOW LINK 

* 

facile osservare che sarà pro- 
prio PC+4 la locazione di memo- 
ria che a noi interessa. 

Esaminiamo ora i puntatori che 


ci permetteranno di informare il 
sistema operativo di dove si tro- 
verà la prossima istruzione data 
da eseguire. Questi si trovano nel- 
le locazioni decimali 63 » 64, 65 > 
66 . 

T jC locazioni 63 e 64 sono ri- 
spettivamente il byte basso e alto 


del numero della linea data, men- 
tre ìe locazioni 65 e 66 sono il 
byte basso e alto del puntatore 
che indica la locazione di memo- 
ria dell’istruzione data, 

A questo punto il caricamento 
del puntatore 63 e 64 è immedia- 
to in quanto il numero della linea 



100 

REM ************* 

100 

REM ************* 

1 10 

REM * TEST £ * 

1 10 

REM * TEST 3 * 

1E0 

REM ************* 

1E0 

REM ************* 

130 

REM 

130 

REM 

140 

REM SIMULAZIONE 

140 

REM ESEMPIO 0! 

156 

REM ERR- 1 NON C ‘ E ' 

150 

REM ESECUZIONE 

160 

REM DATA IN LINER 

160 

REM CORRETTA 

170 

REM INDICATA 

170 

REM 

180 

RESTGRE ! PR INT * 

180 

RESTARE :PR INT * SI" 

1 90 

FORK= 1T06 

130 

FQRK= 1T06 

£00 

READA^s PR INTA$ 

£00 

READA* SPRINTA* 

£10 

NEXT 

£10 

NEXT 

££0 

REM UN ULTERIORE 

2£0 

REM UN ULTERIORE 

£30 

REM READ A* 

230 

REM READ 

Em 

REM CAUSEREBBE 

£40 

REM CAUSEREBBE 

£50 

REM UN OUT OF 

£50 

REM UN OUT OF 

£60 

REM DATA ERROR 

£60 

REM DATA ERROR 

£ 7 0 

LN=300 : GO3UB63500 

270 

LN=320 i GOSUB63500 

£80 

READAS:PR INTfì* 

£80 

READA^SPR 1NTA* 

; £30 

REM 

£90 

READA*;PRINTA$ 

; 300 

END 

3D0 

END 

310 

OATAUNO ,PU£ 

313 

DATAUNO^DUE 

320 

DATA TRE .QUATTRO 

3 £0 

DATA TRE .QUATTRO 

330 

DAT AC INQUE .SEI 

330 

DATACI NQUE^SEI 

1008 

: 

1 000 : 

10 10 

REM INSERIRE ROUTINE 

1010 REM INSERIRE ROUTINE 

READY é 

READY* 


alia quale c’è 0 data che interessa 
lo abbiamo stabilito noi e si trova 
nella variabile LN, LN(I) contie- 
ne il byte alto, mentre la varia- 
bile LN(2) contiene il byte basso. 
Mettere questi due valori nei ri- 


spettivi byte del puntatore è un 
gioco da ragazzi. 

I 1 caricamento del puntatore 
nei byte 65 e 66 è altrettanto 
semplice in quanto il programma 


ha appena calcolato PC + 4 che è 
appunto il valore con cui va cari- 
cato il puntatore in questione, 

u na volta inseriti nei puntato- 
ri questi valori, quando il basic 

Cnmpt tter Ciati- P9 




incontra una istruzione READ 
questa va a leggere proprio il pri- 
mo dato della frase data alla linea 
da noi specificata, cioè avremo 
ottenuto proprio l’istruzione RE 
STGRE N che non esiste nel ba- 


sic Commodore, 

Uso della routine 

I^uso di questa routine in un 
programma è alquanto semplice. 


asta infatti caricarla nella 
macchina prima di digitare il pro- 
gramma che ha bisogno dell'istru- 
zione Rcstore N, e sostituire 
1 * i struzione RESTQRE XXXX 
con le istruzioni LN = XXXX: 


100 

REM ********* **** 

H 

340 

‘ ■ 

X= INT< RND< 1 > *5 > + 1 

ne 

REM * TEST 4 * 

350 

FORK* 1TOX 

1 20 

REM ************* 

360 

READOG* 

130 

REM 

370 

NEXT 

140 

REM ESEMPIO 01 

380 

REM STAMPA FRASE 

150 

REM UTILIZZO 

390 

PR I NT "il" 

160 

REM 

400 

PR INTNO* SPRINTVE^SPR INTOG* 

170 

REM SCELTA DEL 

4 10 

PR I NT " IMANCORA 7 “ 

130 

REM NOME 

420 

GETA$: IFA*=" "THEN420 

130 

RESTORE 

430 

IFA*’ *S "THENRUN 

£00 

X= INT< RNO( 1 >*5) +1 

440 

END 

£ 10 

FORK = 1TCJX 

450 

REM ** NOMI #* 

£20 

RE AD NO $ 

460 

DATAMARCO ,LU ISA ,E . T . 

£30 

NEXT 

470 

DATAFRANCO , SANDRA 

£40 

REM SCELTA DEL 

480 

REM ** VERBI ** 

¥ 

! £50 

REM VERBO 

490 

OftTftROMPE 

£80 

LN-490 s GOSUB63500 

500 

□ATAUSA .VUOLE 

£70 

X = INT< RNDC 1 )*3>+l 

510 

REM ** OGGETTI ** 

£80 

FORK* 1T0X : 

5£0 

DATALA BAMBOLA .UNA CASA 

230 

REfiOVE* 

530 

DATAUN CUSCINO.IL MARTELLO 

300 

NEXT 

540 

DATA IL TELEFONO 

310 

REM SCELTA DELL 1 

550 

m 

320 

REM OGGETTO 

1000 REM INSERIRE ROUTINE 

330 

LN=5£0 : GOSUB63S00 

READY. 


GOSUB 63500, 


Consigli utili 


LN 


deve chiaramente conte- 
nere il numero della linea ove 
eseguire il restare n* Nel pro- 
gramma principale non devono 
comparire le variabili PC NP TE 
LN(I) LN(2), PC(I), PC{2) poi- 
ché sono usate nella routine* 
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Poiché la routine cerca nella 
memoria l’indirizzo del data inte- 
ressato sequenzialmente da indi- 
rizzi bassi a quelli alti, è evidente 
che se le frasi data compaiono al- 
l'inizio dei programma, la routine 
li troverà piu velocemente che 


non se fossero ubicate alta fine 
del programma come di solito ac- 
cade, E ? consigliabile perciò una 
struttura Cosi concepita: 

1 GOTO numero di linea ove 

inizia il programma 

2 DATA 

3 DATA 

X qui inizia il programma 



63475 

63470 

63477 

63478 
63473 

63430 

63431 
S3432 

63483 

63484 
63465 
83486 
63487 
63433 
634S9 

63490 

63491 

63432 

63433 
63484 
634S5 
63438 
63497 
63496 

63499 

63500 

63502 

63503 

63504 
63535 

63506 

63507 

63508 
63503 
63510 
6351 1 
63512 
635 13 
63514 
635 15 
635 16 
63517 
635 1S 
635 19 
63520 
0352 1 

63522 

63523 

63524 
83525 
63526 


REM ********************* 


REM * * 
REM * BY MAURO BATTISTI * 
REM * * 
REM * VIA D'ALVI ANO 100 * 
REM * * 
REM * 34144 - TRIESTE * 
REM * * 
REM * TEL » 040/821950 * 
REM * * 


REM ********************* 

REM 

REM 

REM IL PROGRAMMA RESTOSE LN USA LE 
REM VARIABILI LN< 1 > LN< 2 ? TE PC NP 
REM PC( 1) PC< 2 ) CHE PERTANTO NON 
REM DEVONO COMPARIRE NEL PROGRAMMA 
REM CHE OSPITA QUESTA ROUTINE 
REM LA VARIABILE -LN- E' USATA PER 
REM COMUNICARE ALLA ROUTINE LA 
REM LINEA OVE ESEGUIRE IL RESTORE 
REM -- RESTORE LN -- FUNZIONA CON 
REM QUALSIASI ESPANSIONE DI RAM 


REM 

*********** 

REM 

* 

RESTORE * 

REM 

* 

LINE * 

REM 

* 

NUMBER * 

REM 

* 

i 

i 

r 

z 

1 

1 

REM 

*********** 


j? er risparmiare spazio in me 
moria si possono eliminare tutti L 
REM tranne quello nella linea 
63500 che va eventualmente so- 
s t i mito con REM RESTORE 
LN, 


Mauro Battisti 

Via et" Avviano, 100 

34144 Trieste - TeL 040/821950 


4096 

4097 

4098 

4099 

4100 

4101 

4102 

4103 

4104 


Dtì 


0 

7 

16 

10 

0 

143 

0 

13 

16 


Byte sempre a zero 

Low Link _ s . 

* . - Indicano 

High Link 1>indirizzo 
4103 0 ° 

Low numero di lìnea 

High numero di lìnea 

Codice di REM 

Marcatore di fine linea 

Low link _ j. 

- indicano 
High linkij. .. . 

^ r indirizzo 


4109 = = 


4105 20 Low numero di linea 

4106 0 High numero di lìnea 

4107 153 Codice di PRINT 

4108 0 Marcatore di fine linea 


4109 = = 19 Low Link Indicano 

4110 16 High Link ,, « 

° T indirizzo 


PC=PEEK< 43 > +FEEKC 44 J *256 
LNt 1 ? = INT< L N/2 56 > 

LTK 2 > *LN-LN< I > *256 
NP=PEEK< FO+PEEKC FC + 1 ? *256 
I FNP -0THENGOTO63525 
TE*PEEK< PC +3) 

IFTE< >LN< 1 >THENPC = t^!G0T06351 1 
TE=PEEK< PC+2) 

IFTE< >LN< 2)THENPC=NP:GOT0635l 1 
TE=PEEKt PC +4 > 

I F TE < > 13 1TMENGDTQS3527 
PC-FC+4 

PC< 1 ) * INTC PC/256 > 

PC< 2 ? -PC -PCV t J *256 
P0KE63 r LN< 2) :F0KE64 ,LN< 1 > 
FGKE65 ,PC< £)i P0KEG6 ,PCC 1) 
RETURN 

PR INTi PR I NT “NEL PROGRAMMA NON' 1 
PR INT "ES ISTE LA LINEA u LNi END 




4115 ++ 


4111 

30 Low numero di linea 


4112 

0 High numero di linea 


4113 

128 Codice di END 


4114 

0 Marcatore di fine linea 


4115 ++ 0 Low link „ , 

. . - Essendo 


4116 

0 High link . . 

& pari a 0 in- 

dicano la 
fine del 

testo. 

63527 PR INTi PRINT" ALLA LIN£A M LN 

6352B PR INT "NON 

ESISTE UNA * 


63529 PRINT" ISTRUZ IONE DATA " s END 
READY* 
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Vie 20 & Commodore 64 


Simulazione 

DI UN PROCESSO 
D ’ APPRENDIMENTO 


S ono ormai in molti i possesso- 
ri di un micro-computer annoiati 
dal classico “MASTER MINO”, 


un game in cui tessere umano si 
prodiga nel tentativo di indovina- 
le un numero ideato dal compu- 



to 06 
4001 
IB 02 


1004 
1006 
i G0S 
1 0 1 O 
10 

10 14 
10 io 
10 18 
1G30 
1 S 52 
1024 
1026 
1022 
1030 
1032 


REM" ' ' 

REM J| MASTER MINO* IL COMPUTER 
REM “ I ND 0 V I Nn IL NUMERO CHE PENSI! 
REM " - - MAUR I Z I 0 DI VIZIO 

REM " 

REM" TEL 033/743032 , MONZA <MI> 

REM" 


REM 


FRINTCHR*< i4?iREM SET MINUSCOLE 
PR I NT » : a$=" 

F 0 R K = 0 TG3 3 : PR i NT " “ H ; :NEXT 
PKIN TAS; " SIMULAZIONE DI UN" 
PRIhmW" PROCESSO DI" 

FRI NTA$ * " APPRENDIMENTO - 11 

FORK=0TO39: FRI NT 11 ; : NE X T 

FORK-0TG2000 ; NEXT 
DIN TE NC 1 000 j , RTEN ( 1000> 

MAX = 124 sUl=FRECg> 

CICLO = I 


ter. 


E questa premessa la giustifica- 


zione razionale del programma 
presentato. Si tratta in effetti di 
un originale “gioco”, se cosi può 
essere ancora definito, che stra- 
volge la ormai esasperata e consu- 
mata idea vitale del “MASTER 


MINO”, 


I n effetti spetta ora al “corn- 
ai uter” il compito, apparente- 
mente arduo, di precisare me- 
diante successivi tentativi un nu- 
mero pensato dall’utente, 


Come funziona il tutto 

J tì genere quando si vuole arri- 
vare a dimostrare una tesi, si par- 
te da presupposti, ipotesi. Nota 
comune di queste ultime è il fat- 
to che nessuna di essa ne con- 
traddice un'altra, ma tutte sono 
vere “contemporaneamente”. 

N el caso specifico del pro- 
gramnUj si tratta di procedere 
per tentativi alla “razionale” ri- 
cerca del numero misterioso. 

L aggettivo “razionale” si rife- 
risce al fatto che il programma 
nella sua esecuzione tiene conto 


32 -Computer Club 






Ì034 

1036 

1035 
1040 
1 64 £ 
1044 
1046 
1048 

1053 
1 053 

1054 
1056 
1058 
1060 
13S£ 
1064 
1066 
1068 
1070 
107 £ 
1074 
1076 
1078 
1080 
1 08E 
1084 
1086 
1088 
1080 
108E 
1G94 

1036 

issa 

l 100 
1 10£ 
1 104 
1 106 
1 Ì0S 
il £0 
1 1 1 £ 
1 1 14 
1 1 16 
1118 
1 1E0 
1 188 
1 1 £4 
1 166 
1 1£8 
1 130 
1 13£ 
1 134 


REM -- 

REM TENTATIVO STANDARD N. 1 

R E M-* - 


PR INT H UgM IL MIO NUMERO E’ 
I NPUT * UU7UANT I PMJ' - 11 IP 
INPUT ‘HHQUANTI MENO = 11 ,? M 
TEN t CICLO) = 1 £3 
RTEN C CICLO) * CP+M/IB) 

C I CLO- CICLO + 1 


123 'B* 


REM * ----- - 

REM TENTATIVO STANDARD N* H£ 
R E M- — — - — 


PR INT " iJBW IL MIO NUMERO E* 
t NPUT*' HHEÌI IftNT 1 PIU' = M ;P 
1 NPUT " SUE? U A NT I MENO = 11 1 M 
TEN C CICLO) = 458 
RTEN C CICLO) = (P+M/Ì0) 

C 1 CLQ = CICLO + 1 


[ fl 456 w ■ " 


REM 

REM TENTATIVO STANDARD N. *3 
REM 


FR INT" JHHIL MIO NUMERO £' 
XNPUT' ! ^92UANTI PIU* = “ ; F 
ì NFU T fF HÈJQLI ANT 1 MENO = " ; M 
TEN < CICLO) = 783 
RTEN i CICLO) = <P+M/10) 
REM CICLOPC ICLO+i 
POR X=* MAX TO 898 


PR INT 
PR INT 



■ 

* 


a* 1 783 


FRlNT"m TTENDERE" 


REM- ----- 

REM INIZIA IL CICLO DEI TENTATIVI ^ 
REM- 

X 

* 

POR C= 1 TG CICLO 
RI =00G 

A$=RIGHT*( STR$< X> r 3> 

A 1 “VAL 1 ; LEFTSK 
B 1 -VAL< MID*< 

C l -VAL< MID*< ASC 3 , 1 > > 

AS^RIGHTSC STRS< T£NC C ) > ,3 ) 

A£~VAL< LEFTS< AS, 1 ) ) 

B£-VAL< MIDSv AÉf,2 , 1 ) > 


di elementi che con Paumentare 
delle prove, divengono le “ipote- 
si" vere e proprie nel processo di 
dimostrazione della nostra tesi (e 

cioè indovinare il ninnerò miste- 
rioso deir utente), 

^Jel dettaglio il funzionamento 
del programma può essere cosi 
sintetizzato: l'utente pensa un 
numero, il computer fa un tenta- 
tivo ai quale si deve rispondere 
secondo un codice che poi vedre- 
mo; iì tutto si ripeterà sino a che 
la macchina indivìdua le nostre 
cifre (in generale 5,6 tentativi so- 
no piu che sufficienti), 

F 5 ■ u 

I , interessante notare cnc se 
tentiamo di rispondere alle ri- 
chieste della macchina mediante 
informazioni volutamente inesat- 
te, il computer si accorge subito 
dell 'imbroglio, identificabile con 
l’esistenza dì ipotesi, (dati cioè 
da noi inseriti) che risultano con- 
traddittorie. 

Come rispondere agli INPUT 

I 1 programma mostra i succes- 
sivi tentativi della macchina: noi 
dovremo rispondere agli INPUT 
in seguito ad un confronto tra il 
numero proposto e quello da noi 
pensato. 

T 1 computer chiede quanti “più 
e meno" ha realizzato mediante 
l'ultimo tentativo; noi dovremo a 
questo punto segnare su un fo- 
glio quanto segue: 
numero pensato (esr) = 473; 
numero proposto dal computer 
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(es: ) = 123, 


1 136 
1 138 
i 146 
1 1 48 
1 144 
1 146 
1 148 
1 150 
1 152 
1 154 
1 156 
l 1SB 
1 160 
1 i 62 
1 164 
1 16G 
1 168 
1 170 
1 172 
1 £74 
1 176 
1 173 
1 160 
1 182 
1 134 
1 138 
1 183 
1 130 
1 192 
ì 134 
1 136 
1 Ì38 
1280 
1202 
1204 
1206 
1208 
12 10 
!£1H 
1214 
12 16 
12 18 
1220 
1222 
1224 
1226 
1228 
Ìp30 
1232 


C2-VAL( MID*< f\B,3 r 1 ) ) 

« 

-■ 

REM 

REM CONTROLLI SUI PRECEDENTI TENT . 

fe 

'9 

I FA 1 ^AETHEN R J I +1 
IFB 1 -B2THEN R I - R 1 + 1 
EFC1=C£TH£N RI=RIM 
JF A 1=82 THEN RI ^RI + . 1 
I F A1=C2 THEN RI =R I + .1 
1F B1=A2 THEN RI =RI + .1 

IF B l =C8 THEN RI -RI + ,1 

IF C A3 THEN RI =Rt + ,1 

IF C 1 fi B2 THEN RI I + .1 

IF RI <> RTEN <C> THEN 1200 
NEXT C iMRK - X 


REM h — • - 

REM PROPONE UN ULTERIORE NUMERO 


PR 1 NT " LI " ; 

PRI NT "TENTATIVO NUMERO ¥f fl";CIG 

FRI NT "Smil MIO NUMERO E j a ,, JX;“S M 

INPUT 11 fflPUANTI PIU 4 " " P 

INPUT 41 TgB3UANTl MENO - ; M 

3 F P-3 THEN GOTO IE24 

CrCLO=CICLO+l 

TEN< C I CLO > s X 

RTEhK CICLO < P + M/10) 

GOTO 1 1 ©0 
C=CICLO s NEXT X 

m 

* 

REM 

REM TEST DI E VE NT* IRREGOLAR ITA ' 

REM 


PRINT-^JSH BM^AI BARATO 
END 


! i ! 




» 


REM-- — ™ ------ --- 

REM NUMERO OK * FINE PROGRAMMA . 

REM 

■* 

v 

u 

PR I NT 11 *JI L NUMERO E 1 " ; X 
PRINT"HSHO INDOVINATO IL NUMERO rt 
PRINT"aCON SOLÌ "CICLO'* TENTATI VI H 
PR I NT - PR I NT : PR I NT 


READY, 


C^ofitrollìamo ora se, del primo 
numero* la prima, la seconda, la 
terza cifra sono rispettivamente 
uguali a quelle del secondo nu- 
mero; in tal caso per ogni ugua- 
glianza segnare un più (+) sui fo- 
glio, 

S uccessivamente controlliamo 
se la prima cifra del primo nume- 
ro è uguale alla seconda o terza 
del secondo numero; cosi si pro- 
cederi per le altre restanti due ci- 
fre; a questo punto scriviamo sul 
foglio tanti meno (-) quante sono 
le uguaglianze riscontrate, (non 
barate: come ho detto “LUI” se 
ne accorgerebbe), 

O ra finalmente potete tran- 
quillamente rispondere ai succes- 
sivi INPUT. 

1 1 engo a precisare che, come gii 
affermato, in cinque o sei tenta- 
tivi, il nostro computer dovrebbe 
individuare il numero misterioso. 

E bene tener presente che tale 
numero, cioè quello pensato dal- 
Putente, deve essere compreso, 
per come è strutturato il pro- 
gramma tra un minimo di 123 ed 
un massimo di 987* 

C oncludo dicendo che tale pro- 
gramma non è assolutamente lun- 
go, per cui risulta possibile adat- 
tarlo anche al Vie 20 con la mini- 
ma espansione (3K). • 


Maurizio di Vizio 
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Commodore 64 

I l I " 1 _ 



Gestione 


ote esplicative del programma 
per disegnare aprite pubblicato 
sul N* 5, 

Riga 10 * La POKE 650,128 abi- 
lita bautorepeat su tutti i tasti, 
150-155 ■ Memorizzai io ne delle 
routine in L.M. Fare moka atten- 
zione nel copiare i data dalla riga 
1000 alla 15500, 

210 * Tasti da premere per muo- 
vere iJ cursore, 

2 2 0 • Premendo il tasto 

“SHIFT” viene colorata la casella 
sotto il cursore. Premendo il ta- 
sto “Commodore” viene cancella- 
ta, E* possibile muovere il curso- 
re tenendo premuto contempora- 
n e a m e n te lo “SHiFT” (o il 
“Commodore”}* cioè colorare e 
cancellare muovendo, 

P er memorizzare invece occor- 
re che non sia premuto contem- 
poraneamente alcun altro tasto. 
600 * La routine in L.M. serve ad 
in realizzare le routine dì trasfor- 
mazione, 

610 * Routine che trasforma 
l’immagine in cifre e la memoriz- 
za, Viene utilizzato il L.M, (Sys 
49310) per velocizzare. Con il 
Basic occorrerebbero circa 20 se- 
condi. 

630 650 * Lo sprìte viene visua- 


DEGLI 

Sprìte 

lizzato nei 4 formati possibili: 
normale, espanso in altezza, 
espanso in larghezza ed espanso 
in entrambe le direzioni, 

1010 * Routine in L.M. che ri- 
porta sullo schermo l’immagine 
memorizzata, 

3000-3700 * Routine che si occu- 
pa di riempire le linee di data da 
20000 a 21400, 

3750 * Calcola il nuovo indirizzo 
di partenza dei programmi in ba- 
sic. 

Importante 

4100 * Sposta puntatori dei pro- 
grammi in Basic al nuovo indiriz- 
zo, Listando ora apparirebbero 
solo le linee da 20000 in poi. Per 
resettare: PQKE 43,1 - POKE 
44,8. 

* Prima dì salvare premere “Run- 
/ Stop” e “Restore” contempora- 
neamente, altrimenti il salvatag- 
gio non viene effettuato regolar- 
mente (e ricordate di verificare); 

* 1 ^ultima figura memorizzata 
non viene persa finche non si spe- 
gne il computer (resiste anche al 
reset del sistema (Sys 64738}) e 
il programma ne prevede il riuti- 
lizzo. 

» se non avete scelto di salvare 4 


copie sfasate di 90 gradi, alcune 
linee dì data rimarranno vuote. 
Se non volete sprecare nastro e 
tempo potete cancellarle prima 
di salvarle. Badate, però, se inten- 
dete continuare ad utilizzare il 
programma, di reinserirle esatta- 
mente uguali in lunghezza o t se 
preferite, ricaricate il program- 
ma; 

* le righe di data vuote sono tutte 
uguali in lunghezza, ed è molto 
importante batterle esattamente. 
Basta digitare il numero di linea 
(sempre di 5 cifre), lasciare uno 
spazio, poi battere “Data” e i 
“due pumi”, tornate col cursore 
sui * 1 d u e punti” e premete 
“Shift” e “Insert /Dolete”. I “due 
punti” si fermeranno automatica- 
mente quando saranno giunti al- 
l’ultima casella disponibile per la 
linea d’istruzioni. Premete “Re- 
turn” ed il gioco è fatto; 

* se volete inserire gli Sprìte così 

creati o qualunque altro pro- 
gramma in un programma che 
avete già in memoria, senza di- 
struggerlo, battete Poke 43, Peek 
(45)-2, Poke 44, Peek (46) e do- 
po aver caricato Poke 43,1: Poke 
44,8, Attenzione che le righe del 
nuovo programma abbiano nu- 
meri di linea diversi da quelli del 
programma già presente, * 
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Commodore 64 e Vie 20 


Come Allungare 

le 

Linee B asic 



u na limitazione, se cosi voglia- 
li! o chiamarla, f dei calcolatori 
Commodore, è rappresentata dal 
numero massimo dei caratteri 
che possono essere digitati in cia- 
scuna linea dei programmi basic: 
80 nei computer della serie 2000, 
3000, 4000, 8000, Commodore 
64, e 88 nel caso del Vie 20. In 
effetti, a pensarci bene, il nume- 
ro dei caratteri è più elevato dato 
che si può ricorrere ad abbrevia- 
zioni di comandi o istruzioni. Ciò 
è dimostrato dal latto che, listan- 
do un programma, il numero dei 
caratteri che viene effettivamente 
visualizzato supera i limiti accen- 
nati. Se, per esempio, nel digitare 
una riga abbiamo usato il caratte- 
re ”? ”, nel listare la riga stessa 
esso viene “tradotto 1 ’ con PRINT 
occupando, appunto, cinque ca- 
ratteri e costringendo, in alcuni 
casi, a far apparire lìnee più lun- 
ghe del consueto, 

I ii alcuni casi, ed in special mo- 
do ricorrendo ad istruzioni del ti- 
po IF„. THEN, il gruppo di co- 
mandi o istruzioni da soddisfare 
nel caso si verifichi un evento, 
può essere tanto consistente da 
costringere il programmatore a 
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soluzioni che, pur se perfetta- 
mente valide, possono esser poco 
chiare per chi desidera studiare il 
listato. Ricorriamo ad un esem- 
pio chiarificatore: supponiamo 
che, a seconda del valore della va- 
riabile X, altre variabili debbano 
assumere particolari significati* 

X=l; 

A=1234.5ó7 R-2346.567 
05678,3455 A$-“X UNITA- 
RIO” 

D=1245,765 E=9886345 
F= 1360,4567 BS = “PRIMO 
TENTATIVO” 

X=2: 

A= 8654. 345 7 642:245 


C=214ó7.4óó A$=“X DOPPIO” 
0=7456.234 E-8904 006 
F=23457 + 566 BS=“SECONDO 
TENTATIVO” 

X=3: 

A=6543.345 B=345636ó 
C=56783,234 A|=“X TRIPLO” 
D=9235.046 E-3467.567 
F = 13506.009 B3= “TERZO 
TENTATIVO” 

X=Eccetera. 

P er soddisfare le condizioni 
indicate dovremmo ricorrere a 
istruzioni del tipo: 

100 IF X=1 THEN A=1234,„„ 

110 LF X=2 THEN A=8Ó54_ 
Ecc. 



Alcuni esempi 


Prima della fusione. 


90 , 

100 

IF X=1 THEN 

A=1£34,5S7: 

6=2346. 

56 ( ■ 

1 10 

□ - I £45 ,765 : 

E =9386- 343 : 

F= 1360 , 

4567 

120 

IF X=£ THEN 

A =8654 - 345 : 

B-7642 , 

£45 * 

130 

D = 7456 . £34 : 

E = 63S4 - 036 : 

F -£3457 

-566 

140 

IF X=3 THEN 

A -6543 P 345 : 

B=3456 ■ 

566 : 

150 

D =3235 .346: 

E =3467 . 567 ? 

F ” 13506 

. 003 

i 60 






C = 5673.3455: UNITAR 

0*= "PRIMO TENTATIVO^ 

C = E 1487 , 4G6 : DOPFID 

B&= "SECONDO TE NT A T IVO 1J 
C-567B3 . £34 * A$^ M X TRIPLO" 
B$=" TERZO TENTATIVO 1 ' 


IO 


ii 


ii 


READY. 


Dopo la fusione. 

8 B listili 

100 IF X^l THEN A= 1234, 567: 6=2346.567: C- 5678,34551 f\$= N X UNITARIO" 
ìi5 = iD^i24S * 765 : £=3886, 345 s F= 1360 -456?: B$= "PRIMO TENTATIVO M 
138 IF X=£ THEN A=SS54.345: B=764£.£45ì C= £1467.466: A$=, H X UÙFPIO" 

! : s s sD = 745B ,2 34 ! E>3904_-0e6: F = 23457.5665 6*= " SECONDO TENTATIVO" 

140 IF X=3 THEN fì=6543.345: B=345S,566: C-56788.E34: ft$='’X TRIPLO" 

+ 

; s s ; :D = 9£35.04 6: E=3467.5G7; F = 1 3506 * 3B3 : B$= H TERZO TENTATIVO 11 

160 , , T . r 


READY 


r 


Sotto program ma per fonderà dua l inane successive. 

li 

62333 REM 4** SUBRDUTINE DI FUSIONE LINEE * + * 

83303 FRI NT "LINEA DA FONDERE CON LA SUCCESSIVA " 

S3G 1 6 INPUT A : X = PEEKC 43 > +PEEK< 44 > *£5S 
63020 XI = PEEK( X > ■ XE = PEEK<X+1> 

83033 I=X 1 +X2*£56 - . J =PEÈK< X+2>+PEEK< X+3>*£56 
63040 IF j=A THEN 63370 

6305B IF J ) A THEN PRINT A “ = 3- INE A INESISTENTE ■' SEND 

633SS X=I : GOTO 636E3 : REM A. DE SI MONE 
63073 X3=PEEKCI)i X4=PEEKI I + I > ! P0KEX,X3: POKEX+ 1 ,X4 
63030 POR J=-I TO 3: FOKE I + J , 58 ì NEXTJ 


READ'.', 
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-E 1 evidente che il numero dei ca- 
ratteri rappresentanti le istruzio- 
ni è nettamente superiore a quel- 
lo accettabile dal computer. Co- 
me fare, allora in questi casi? 

Lf a soluzione più in uso è quella 
di ricorrere a subroutine da porre 
in fondo al programma, Esem- 
pio; 

100 IF X=1 THENGO SUB 1000 
1101FX-2 THEN GO SUB 1 1 00 

1000 A=1234.567: B- 
O, * * . : RETURN 
1100 A- , * , . : B= . » * * 

O , * . * : RETURN 


Eccetera 

I n questo modo, però, pur ri- 
solvendo ii problema, dato che 
consente un numero praticamen- 
te illimitato di istruzioni in cia- 
s c una subroutine, costringe il 
programmatore, in fase di esame 
del listato, a continui controlli 
del corretto indirizzo relativo alle 
varie subroutine richiamate. In- 
dubbiamente sarebbe più interes- 
sante avere a disposizione, sulla 
stessa linea delPlF... THEN tutti 
gli statement che la riguardano. 

Un nuovo metodo 

E veniamo, finalmente, alla de- 
scrizione del “trucco” che con- 
sente dì allungare le linee basic. 

C ome è noto una linea basic è 
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allocata, nella memoria RAM del 
computer, secondo uno schema 
ben rigoroso» 

I primi due byte, detti di 
“link”, indicano l’indirizzo della 
prossima linea del programma ba- 
sic; i successivi due rappresenta- 
no la codifica del numero della 
linea Stessa» Seguono i byte delle 
istruzioni contenute all'Interno 
del programma* L'ultimo byte 
r a ppresenta sempre un valore 
nullo. Vediamo, in breve, come 
funziona il computer nel caso del 
semplice listato che segue: 

100 PRINT “PROVA”: PRINT 
110 END 

(3 uando battiamo RUN, il siste- 
ma operativo va ad eseguire il 
contenuto della prima linea allo- 
cata, Innanzitutto incontra due 
byte che gli comunicano il luogo 
della memoria in cui si trova la 
prossima linea basic; ne terra 
conto quando, soddisfatti gli or- 
dini impartiti nella linea appena 
incontrata, dovrà passare ad ese- 
guire quelli che*,, seguono. 

Dunque; incontra due byte di 
link; subito dopo viene informa- 
to che la linea che sta per trattare 
è numerata con 100 (sempre 
buono a sapersi)* il valore succes- 
sivo è 153 che nel “gergo” Com- 
modore significa PRINT. Esegue 
l’ordine visualizzando la parola: 
PROVA e capisce, dai due punti 
successivi, che c'è altro da fare: 
stampare un rigo a vuoto. Subito 
dopo incontra uno zero che viene 
interpretato come,*, fine della 
corsa* A questo punto, e solo 


adesso (dopo aver cioè incontra- 
to uno zero) il sistema operativo 

va ad eseguire il contenuto della 
linea il cui indirizzo era indicato 
nei due byte di link visti prima 
(ricordate? )* 

Bene, il trucco è tutto li. Se alla 
fine di una linea basic cancellia- 
mo lo zero e, della linea succes- 
siva, sostituiamo i due byte di 
link e i due di numerazione basic 
con dei caratteri due punti (;) 
noi, ingannando il sistema opera- 
tivo, lo costringiamo, a eseguire i 
vari ordini senza “uscire” dallTF 
*.* THEN. E' ovvio che, per com- 
pletare l’opera, vanno alterati i 
due byte di link della linea basic 
che stiamo*.* allungando. Per es- 
sere più precisi, i due byte di link 
punteranno alla linea successiva a 
quella che vogliamo inglobare. 

A tutte queste operazioni prov- 
vede la routinetta proposta da ag- 
giungere in coda ai programmi 
che desideriamo alterare* Quando 
se ne ravvisa la necessità sarà suf- 
ficiente digitare; 

RUN 63000 

ed il sottoprogramma prowederà 
alla fusione della linea indicata 
con la successiva, 

G li “estratti” dei programmi 
pubblicati indicano ii modo di di- 
gitare le linee da fondere e l’ef- 
fetto che ne deriva dopo la fusio- 
ne* • 


Alessandro De Sirnone 
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Formula 1 


guida di uria macchina bi- 
sogna riuscire a percorrere tutto 
il tracciato della pista senza urta- 
re i bordi della pista stessa, ini- 
zialmente verrà chiesto a quale li- 
vello di difficoltà si vuole gioca- 
re, verri visualizzata la prima pi- 
sta ed un semaforo che indicherà 
il momento della partenza. Dopo 
un po’ di tempo la macchina co- 


mincia a muoversi. E' vietato tor- 
nare sui propri passi; in caso con- 
trario il computer si accorge del- 
l'imbroglio, Arrivati af traguardo 
compare automaticamente una 
nuova pista da percorrere, e arri- 
vati al traguardo di questa, ne 
compare un’altra, e poi ancora, 
per un totale di cinque piste, 
messe in ordine crescente di diffi- 


coltà, 

S c non riuscisse ad arrivare al 
traguardo della quinta pista, gli 
verranno assegnati dei punti in 
più ed una nuova macchina. 

Si può uscire di pista, c quindi 
rompere la macchina solo due 
volte: alla terza il gioco termina, 

S c si esce di pista c si dispone 
di alcune macchine, si riparte dal- 
l'inizio della pista nella quale sì è 
verificato l'incidente. 

Esistono poi dieci livelli di dif- 
ficoltà. A livello zero la macchina 
va piano e non aumenta dì veloci- 
tà. 

^Jegli altri livelli (dalPl al 9), la 
macchina all’inizio andrà sempre 
piano, ma poi continua ad au- 
mentare la sua velocità in propor- 
zione al livello che si è scelto. 

X I punteggio, che viene conti- 
nuamente visualizzato nella parte 
alta del video, viene dato in base 
al livello di difficoltà e in base al 
numero di chilometri percorsi. 

y\j termine viene visualizzato il 
punteggio ottenuto, ■ 
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305 LS= * S ì GOTO370 
3:0 LS = I I GOTQ370 
3E0 LS = 1*5* GGTG370 
330 LS = 2 £ GOTO370 
348 LS =2 . 5 £ GOTO370 
350 LS ^3 £ 6OTQ370 
370 REM 
420 PRINT"^*; 

430 FRI NT" PO I NT » 

440 PRINT" / M D i I V 

450 FR I NT " / MOll \ P J 

460 PRINT *1 x MQH \* ; 

470 PRiNT"t /■ — -\ r; 

480 GQSUB920 
490 TI -000000 " 

50© FQRK= lTQi0£G£TA*iNEXT 

5 10 POKER , 50 : POKE 1079 , 90 = FORK = 1 TD500 : NEXT5 POKER , 100 

530 POKE 1079+80 ,90 £ FGRK” 1 TO500 £ NEMT 

53© POKER, £55 BFOKEI 119,3 1 : FORK- 1 TD5© £ NEXTì POKER ,0 

540 POKE 1073,8 7 : FOKE I I 53 ,87 £ POKE 1 1 13,87 

55© 8 = 42 : A* 1 123 = D 1 =32 £ C I £ L = 1 £ RM = 255 £ V =£5 £ L 1 =L 

5G0 RM=RM- 1 S D=PEEK< A ? £ I FO= 127THEN780 

570 I F T I # > T $THE NP R I NT 11 Utì 1 l^ROGL I ONE CREDEVI DI FARMELA EH7 ! " = POKER ,®s END 
580 PT -PT +P + I : CC^CC+1 £ IFCC/5= INT( CC/5 > THENV - V-LS 
530 PR lNT"g jl TRB< 17) INT\ PT *CF ) 

S00 IFO< >32THENF0RK.= ITO 10 5 GETA$£NEXT£ GOTO 1840 
810 POKEC 1 ,D1 

820 D=PEEK< A > ' POKER , B £ POKEH ,RM£ POKEH + 1 ,RM 

830 FORK=lTbV£ JK=PEEK< JP ) 5 I FJK< JMOR JK = JNTHENNEXT : GOTO740 
65© LI*L 

66© I F JK =253 THE NL = 4 0 £ G 0 TO 740 
870 IF JK =£43TRENL-33 ! G0T074© 

SS© IF JK=24GTHENL= ™39 £ GOTO 7 4© 

830 I F J K ~ £ 45TH E NL = 4 1 : 6OTD740 
700 I F JK =2 56 TRE NL = -4 1 £ GOTO740 
710 IFJK=£S4THENL=”40:GOTQ740 
720 I F J K =£ 5 1 THE NL = - 1 : GOTO740 
73S IFJK*24?THENL= I :GOTO?40 
735 N£XT 

74C IFL = -LÌTREr4POKEH,0£PR lNT“,jaiMBROGL IONE SEI SQUALIFICATO ì 1 1 11 1 END s EM3 
750 D 1 =D £ C 1 =A 
760 R=R+L 
770 GOTO5S0 

760 REM POKEH ,0 £ POKEH+ 1, 0 ' 

790 Ri=P+i 
800 POKEC 1 , DI 

8 10 FORK =255T00STEP~ 1 £ POKEH , K £ NEKT ! POKER , 0 
920 PT=PT+ 10® SPRINT" 3" TABC 17 ) INTC PT*CP ) 

830 IFP=5THENPT*PT+10005FP=FP-i 
340 IFP=6THENPT=PT+2000:FP=*FP- I 
850 3FFP = - 1 TH£NPT=PT+500 : FP =© 
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3SG IFP^5THENP^0:FP-0iPT^PT + 3000 = PR INT"a rr TaB< 17) INT< PTt-CP > JGGTO4E0 
870 0NFG05UB 1400, 1880 ,E ÌBB ,8830 
880 GGTO4S0 
S90 REM 

900 REM PRIMA PISTA 
B 10 REM 


380 

FRI NT 

I 





\ X" 

i 

F 

930 

PR I NT 11 [ 

\ 





1 i M 

1 

f 

940 

PRINT" 1 

I 





\ 1 ■ 

1 

358 

PR INT “ 1 

I 

- 




\ \ M 

■ 

F 

960 

PRINT" 1 

\ 





ì \ M 

p 

/ 

370 

PRINT" ì 

\ 





1 1 “ 

B 

r 

980 

PRINT" 1 

\ 





l [ <r 

■ 

990 

PRINT" \ 

\ 




f I 11 

■ 

F 

1000 

PR INT “ 

\ 

\ 




I 1 

U i 

1010 

PR X NT ” 

\ 

\ 




1 1 

IP * 

r 

10E0 

PRINT" 

\ 

1 




ì 1 

Di ■ 
f 

1030 

PR INT '• 

t 

ì 




X 1 

bl i 

F 

1048 

PRINT H 

i 

\ 




X I 

Pi * 

r 

! 1050 

PRINT “ 

1 

! 




X X" 


1060 

PR INT Jl 

1 

\ 




X X“ 


1070 

PRINT " 

\ 


■ 


X 1 ' 


1080 

PRINT ” 


\ 




X" 


1090 

PRINT 11 


\ 




X" 


1 180 

PRINT 11 






II 


1 1 10 

FRINIR- 








1 1 £0 

T$- u 000030 11 : 

T I ^ = 11 000800 

IR 




1 130 

RETURN 








1300 

REM SECONDA 

PISTA 






1390 

REM 








1400 

FRI NT '* taBlMMUMl ( 





( 

1410 

PRINT" | 

i 



X 


\ 1 ì 

Il 1. 

/ 

14£B 

PRINT" j 

\ 



X 


\ X 1 

Il ri 
/ 

1430 

PRINT" | 

\ 


X 


\X 1 

"J 

1440 

PR I NT M \ 

r 


1 

X 

\ X 

Il f 
/ 

1 450 

PR INT- 

X 

1 


1 

i 

\ X 

Il ■ 

> 

1460 

PRINT " 

! 

\ 


i 


\ X 

Il ■ 

/ 

1470 

PR I NT " 

1 

1 


\ 


\ ”• 


1480 

PRINT" 

I 

1 


\ 


\ 

M ■ 

/ 

1490 

PRINT " 

i 

t 


\ 


\ 

H * 

r 

1500 

PRINT" 

1 

\ 




“\ \ 

pi > 

/ 

1510 

PR INT" 

1 

\ X“ 




\ \ 

•Il R 

r 

1580 

PR I NT “ 

\ 

\x 

\ 



[ l 

V 

1530 

PR INT 11 

\ 



\ 


I i 

H- r 

F 

1540 

FH INT" 

\ 


\ 


X X 

il ■ 

/ 

1550 

PR I NT “ 


\ r 




X 

pi § 

r 

1560 

PRINT" . 



\ 


r 

X 

Il ■ 

/ 

1570 

PR INT" 



\ 



X 


1 580 

PR INT " 



\ 


X 

in ■ 

F 

1590 

T^- " 000035 11 







1600 

RETURN 
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w*ìteiw 1 '■ jiii ifliMlìl é 


PMAMHIHIBHIIHIH 


JFSJiCS 


1510 REM 

1 S 20 REM ROUTINE PER FUORI PISTA 
1 S 38 REM 

1 S 40 PGKEC 1 ,01 spT=PT-l®| PRINT"a''TAB<: 1 7 > INtt FT*CP ) 

tese FOKEA , 8 ! Ai=FEEK< A- 4 1 > :AS=PEEK< A- 40 > 1 A 3 =PEEK< A- 33 > :A 4 «PE£K< B-T> 
1680 A 5 =FE£K'I A + 1 ? : AG=FE£KC A + 39 ? :R 7 =P£EK< A +40 > :ftS=PEEK< A +4 1 > 

1 S 7 B R 0 KEA- 4 S , 77 :PCKEA- 40 ,S 3 :POKEfl- 3 S, 78 iPOKEft-l , 64 sPGKEA+l ,64 
1686 POKEA+ 33 , 73 : FQKEA + 40 ,33 : PQKEA+ 4 1 ,77 
1690 FORK= 17053 = POKER, RNC< 1 > *255 : NEXT: POKER ,0 

1700 FGKEA- 4 1 ,A 1 : P 0 KEA -40 ,A2 i PCKEA- 33 , A 3 : POKER- 1 ,A 4 :PGKEA+ 1 , A 5 
1710 FOKEA + 33 ,A 6 : POKER + 40 ,A?«POKEA+ 41 ,AS 
17=0 POKER ,0 

1730 FP=FP+ 1 : IFFP= 3 THENPR INT"Sia SEI ANDATO FUORI PISTA TROPPE VOLTE 


1740 IFFP-3THENGQT0Ì77B. 

1750 FORK= 1TO30 : GETA5IMEXT 

17S0 G0T043S 

1770 F ORK =170300 05NEXT 

1780 I FCF4 >3TKENPT=PT('.DFt SOTOlsee 

>730 PT= INT< PTÌÌ/3; 

1 -300 FRINT"J’ 

1310 PRINT'ja IL TUO PUNTEGGIO E' ";PT 
18ES PR 1 NT " B8l« VUOI GIOCARE ANCORA 7” 
1330 GETAT: IFA$< >*'S M flNDfl*< > "N"TMEN1830 
1340 !FA*="M !, THEN£ND 
1850 RUN 
1360 REM 

1370 REM TERZA FISTA 


1 oSB 
1 BSS 


REM 

F R I NT 11 


\ 


£040 

E850 


FRI NT “ 
PR INT" 


IL 


/ 


/ 


yU t 
/ 7 


1303 

FRI NT " 

\ X 

y 

X 


y 

p 

r 

19 10 

FRI NT N 

X X 

y 

X 

/ / 

ii « 

V 

1380 

PR INT* 1 

X X 

/ 

X / 

/ 

y 

Il M 

■F 

1930 

PR INT " 

X 

%£, y 

/ 

/ 

y 

Il ■ 

/ 

154C 

PR INT" 

X 

y 

/ X 

X 

X 

il j 
/ 

ISSO 

PR INT" 

X 

/ 

/ yy\ 

X 

X 

PI 1 

? 

19B0 

PR INT" 



/ // X 

s 

/ 

y 

IH m 

J 

1570 

FRI NT " 



_y // X 

y 

y 

n + 

r 

1380 

PR INT" 

ar 

WF 

// 

X i 

i 

Il * 

/ 

J 990 

FR INT" 



// /X 

\y 

y 

li * 
f 

£000 

FRI NT " 

3FW 


// / V 

y 

li * 

£010 

FR INT" 


/ — 

y / 

X 

\ 

Il m 

? 


PR I NT " 


X 

/ / 

X 

/ 

Il A 

r 

£030 

FRI NT" 

^ssm 

W 

^ y 





ii * 
J 


» 


£080 FRI NT" ^3 y* / 

£076 PR IN T “ 

£030 RETURN 
EB3B REM 


£100 REM QUARTA PISTA 
£110 REM 


il 


► 
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2120 

FRI NT" 


* X 







/ 

£130 

FRI NT " 

X X 




X 

X 

X 

•r 

/ U f 

/ * 

2 140 

PR I NT f: 

X i 




i 

XX X 

X 

X v 

£150 

PR INT" 

\ N/N 

_ . 


1 

1 X X 

X 

\ Il ■ 

X * 

2 160 

PR I NT " 

i 


X 


/ / 1 / 

X 

X V 

£170 

PRINT" 

X 

x\ 

] 


X 1 

t X 


X 


2180 

FRI NT" 


" l " ^ 

X X 

/ 

X X 


If 

v a r 

2130 

PR I NT w 


XXX 

miLW 

f X 

X 


r w M * 

2260 

PR INF” 


3 i 

X 


X 

X 

X 

X 

X n f 

££10 

FRI NT" 


\ È 

X 

/ 


i 

[ 

X 

\ ai b 

X / 

2 E £0 

FRI NT" 


X X 

X 

\ 


X 

X 

X 

X 1 *; 

2230 

PR 1 NT” 


X X 

X 

X 


X X 

X 

X J N 

£248 

FR INT"’ 


X X 

X 

X 

X X 


X 

x f; 

£250 

PR 3 MT n 


X X 

X 

w ^ 

m t 

! 

ì 

X 

x 

2260 

PR INT” 


X X E 

^a w/ 

1 

ì 

X 

i 

£270 

PR INT" 


X 

\x 

X 


X X 

t 

i 

ii * 

? 

£280 

PR I NT " 


X 


X 


X XX 

X 

ri - 

££90 

PR 1 NT “ 



\ 

X 


X 


X 

il i 

f 

2308 

FRI NT" 









li ■ 

? 

£310 

RE TURN 





2353 

FQRK, - 

1 TC 2000 : NEXT : 

£ 3£0 

FRI NT" 

SPOT SE I 

fkum ru 7 

II 

V 

2600 

REM 




£330 

GETA^; 

IFfì£< > JI 

S"THEN £333 f 

2610 

REM QUINTA 

FISTP 

234 G 

RETURN 





2623 

REM 





/ Il w 
-* 


u 1 


2640 

2850 

2 &S 0 

EB70 

£680 

2 SSQ 

2700 

2710 

2720 

2730 

2748 


FRU'rT"3mm&" 

PRifvn" H \ \ 


PR I NT " 
FRI NT" 
FRI NT " 
PR I NT 11 
PRINT" 
FRI NT" 
PR IMT " 
FRI NT" 
FRI NT " 
PR INT" 


X 


\ 


\/ X 
/X 


x 


X X 



/ X / X 
I /X V' /X x 

X 3 X / X X 
I X — \ 

X X 
X X 

X X . " 

X X 


X 

X X 
/ X 
X X 
XXX 
XX// 

X X 


X 


X 


£750 

FRI NT" 

X t 

X 

\ 

x 

~x \ 

ri 

A 

/ 

£760 

FRI NT" 

X X 

E X 

X 

_x \ 

SI 

■ 

£770 

PR I NT " 

ì X 

X X i X 


X 


M 

£780 

PR l NT " 

X X 

\ n i \ \ 

\ \ 1 / — 


j| 

« 

£790 

PR I NT 11 

X X 3 1 \ \ \ \ 

XX ì X 


jfe 

■» 

? 

2808 

PRI NT" 

X 

\/ i \ N/ / 

X XX x 


ii 

4 

£310 

PR I NT " 

X 

X \ X 

X X 


ir 

« 

/ 

£820 

2830 

PR INT" 

TI $="060900 " 

= "000100 11 




1* P 


2840 

£350 


FRI NT "3* 
RETURN 


READY* 

£860 REM REGOLO " 
REPDY, 
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Wargames 

D’aprile 


Co Uegarsi col computer 
del Pentagono forse 
non è possibile ma... 

M ario usci dall’ascensore so- 

vrappcnsiero e giunto alla porta 
deU'amico suonò il campanello. 
Subito avvertì un passo frettolo- 
so, la porta che si apriva brusca- 
mente e la voce eccitatissima dei- 
l 'amico: 

- Dai, entra, chiudi la porta c vie- 
ni in camera mia! - disse Franco 
mentre già si avviava in tutta fret- 
ta nella stanza. 

- Ma che diavolo succede? - pro- 
testò il ragazzo che, lasciato il 
cappotto sulla sedia dell'ingresso 
seguì subito l'amico* 

Nella stanza c'era un disordi- 
ne, se era possibile, maggiore del 
s olito: dal personal computer 
fuoriuscivano alcuni cavi che ter- 
minavano nei pressi dell'apparec- 
chio telefonico. Un oscilloscopio 
circondato da una caterva dì na- 
stri indicava chissà quale frequen- 
za. Ma la cosa più inconsueta era 
proprio Peccitazione di Franco, 
di solito impassibile anche di 
fronte ai più sofisticati program- 
mi. 

- Commodore Computer Club si 
degnò di spiegare - ha pubblicato 
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tatto con la rete computerizzata 
dei maggiori quotidiani italiani - 
e con ciò? - 

- Ma sei proprio deficiente! Non 
capisci che posso collegar mi col 
Corriere della Sera e avere sem- 
pre notizie dell'ukim'ora? - 

- Non dirai sul serio! - esclamò 
Mario che incominciava a giustifi- 


care l'emozione dell'amico. 

- Guarda tu stesso ribattè Frali- 
co, e si mise a digitare come un 
pazzo* 

S ul video del computer apparve 
la scritta: 

- Ok: effettua il collegamento for- 
mando il numero 560 - 

Franco sollevò la cornetta del ri- 
cevitore, attese il segnale di via 
libera e formò il numero indica- 
to. Dopo alcuni istanti comparve 
il messaggio; 

-Ok: collegamento effettuato, in- 
serisci la parola d ! ordine - 

- Accidenti - esclamò Franco - 
Speriamo che sia ìa stessa di pri- 
ma* Ho impiegato un'ora prima 
di scoprirla 

Mario guardava ora il suo amico 
con un rispetto superiore al con- 
sueto: chi avrebbe mai detto che 
Un ragazzino nè carne nè pesce 
come quello li sarebbe riuscito a 
far tanto con un computerino 
che aveva sempre considerato un 
videogiocG? 

- Ma..* - azzardò - non sarà mica 
proibito? 

- E chi se ne frega - fu la laconica 
risposta di Franco mentre, final- 
mente, il computer accettava la 
parola d'ordine digitata ed inizia- 
va il collegamento* 



- Diamine - disse Mario dopo un 
po’ - ma sono proprio le notizie 
di oggi! - esclamò esaminando 1 
titoli che a mano a mano appari- 
vano sul video, 

* Te l'avevo detto, no? - ribattè 
l’altro non facendo nulla per na- 
scondere il proprio orgoglio. Ab 
l’improvviso non apparve più al- 
cuna notizia, lo schermo si spor- 
cò in vari punti e, dopo un po’ di 
tempo* ricomparve il messaggio: 
componi il numero. 

- Ma che diavolo sarà successo? - 
esclamò Franco preoccupato per 
l’integrità del sistema. Digitò ner- 
vosamente alcuni tasti e si pose 
in attesa degli sviluppi. La scritta 
che apparve subito dopo fece 
rabbrividire i due ragazzi: 

Base Nato: top secret 
Confermata presenza missili nu- 
cleari Urss a 120 Km da Beirut 
puntato su Teheran . Controllo 
satelliti effettuato: positivo. Ap- 
prontato sistema dì intervento 
nucleare Nato di terzo grado ... 

/Villano a mano che i caratteri 


apparivano sul video la bocca dei 
due giovani si apriva sempre di 
più, Mario senti imperlarsi la 
fronte di sudore mentre esclama- 
zioni soffocate venivano emesse 
di tanto in tanto senza che se ne 
rendessero conto. 

B-52 con carico nucleare decolla- 
ti da base 6-11 6 8 K, Confermato il 
decollo . Missili in Turchia allar- 
me rosso H II presidente Usa con- 
ferma Vai tacco preventivo. 

Una lunga pausa silenziosa 
permise ai due di guardarsi in fac- 
cia* Nuovamente il ticchettio ri- 
prese l’attenzione dei giovani! 
Due missili della postazione 
TR98-UY sono stati lanciati 
e, dopo alcuni secondi: 

Bersaglio centrato: 

Buon pesce d'aprile! ! ! 

P ranco guardò Mario, che anco- 
ra non capiva* e iniziò a ridere a 
crepapelle. Finalmente il ragazzo 
capi che era solo uno scherzo* si 
rimboccò le maniche ed iniziò a 
picchiare l’amico che si contorce- 
va ancora dal ridere. 


- Ora mi dirai che diavolo hai 
combinato altrimenti non smetti 
di prenderle -, 

- Aspetta, fermati un po’.,* Non è 
altro che un programma che fa 
apparire una serie di messaggi 
l’uno dopo l’altro -, 

- E il collegamento col telefono? 

- domandò Mario per nulla con- 
vinto della risposta* 

- Ma che collegamento! Il filo 
elettrico che vedi è semplicemen- 
te attaccato con un po’ di nastro 
adesivo sbotto Pappar ecchio: face- 
vo solo finta di attendere la li- 
nea - 

- E le notizie fresche dì stampa? 
Quelle sono vere: le ho lette sul 
giornale di stamani - 

- Anch’io le ho lette e non ho 
fatto altro che digitarle nei DA- 
TA del programma prima che tu 
arrivassi a casa mia -. 

Apiario si sedette ed iniziò a ride- 
re anche lui, In fin dei conti lo 
scherzo era davvero riuscito, sul 
serio. ■ 

Alessandro De Simone 
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P0KE53 
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FRI NT" 


PESCE D' APRILE * 

* 

PER COMMODORE 64 * 

* 

I GIOVANNI BELLO'' # 

IR GIARDINI N. 20 * 

* 

SERE 0 NO * 

* 

TEL. 0352/239530 * 

* 

*■***#*# 5 *## ##*#**##* 

3230,0 i REM BORDO NERO 

2SO PR I NT ” □SJapROGRfif'IMH PER IL COLLEGAMENTO CON ALTRI COMFUTERS" 
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SEMPRE A 199.000 LIRE! 

PIÙ I.V. A. 
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Lo sai perchè ViC 20 va a ruba? 

Provalo e scopri quante cose fa in più! 

1. VIC 20 ha una valanga di videogiochi, uno più 
bello dell'altro, uno più nuovo dell'altro... e i 
successi dalle sale-giochi. 

2. Ma VIC 20 è un vero computer, e fa molto molto 
di più. 

3. Lo usi per la scuoia, o per la casa, o per la 
professione. Trovi subito pronti un sacco di 
programmi. 

Metti le cassette e via con cose utili. E nessun 
videogame ha i programmi del VIC. 


4. ViC 20 ti serve per imparare il BASIC, la lingua 
de! futuro (ed è facile imparare a programmare). 

5 . Nel mondo sono stati venduti più di un milione 
di VfC, a gente sveglia , quelli del 2000. 

6 . VIC 20 ha sempre un prezzo da sballo: costa 
solo 199.000 lire più IVA. E oggi io trovi subito. 


Commodore 

COMPUTER 
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270 

28 © 

293 

300 
3 1 © 

320 

330 

340 

35 © 

360 

37 © 

38 © 

390 

400 

410 

420 

430 

440 

458 

460 

470 

480 

490 

500 

510 

520 

53 © 


55 © 

560 

570 

580 

530 

600 

610 

620 

63 © 

840 

650 

66 © 

670 - 

630 

698 


D I MN$ < 1 0 2 > 

FORK> 1 TG 1 6 : RERDN $ C K ^ 1 > : HEXT 
FORK-1 TO 1 0 sREADN$< K r 2 > : NEXT 

S;=S4272 sF0RK=ST0S+24 sPOKEK,0 : NENT :REM AZZERA 
IL CIRCUITO SONORO 
POKE54296^15 ;REM VOLUME 

m ** " BfflacoLLEGan i con il telefono ■ mm*' 

SGOSUB740 JG0SUB758 
PRIMI "30K - M 

11 MSB9CH I RMR IL NUMERO a 560 SHEH3 1 ' :OOSUB740 
FORK” 1 TO 15008 3 HEKJ s REM 17 SECONDI DI ATTESA 
A^-- M 2I OK - MI SONO COLLEGATO ; GOSUB740 
FORK^ 1 TO500© i HEXT : REM RITARDO 5 SECONDI 
A$= u HHÈa INTRODUCI LA FARGLfì D r ORD I NE . 11 : OOSUE 740 
:PD=PD+1 
FRI NT "Sìa 11 
IMPUTAI ; A=LEhK r\'S) 

IFA=5THEN450 

FRI NT 11 jg NON VALIDA «" 

FOR K ~ 1 TO 1 00© s NEX T 

F’RINT "□ 3 ' CO 1 ' 

GQTO390 
PRINT n 2ia OK 

H^= t, i aSl5J , 1I COLLEGO CON L/ UTENTE PRESCELTO " s (30SUB748 
FORK™ 1 T 05000 : NEXT : REM RITARDO 5 SECONDI 
I FF Ds= UH EN630 

S» 54272 s F0RK“ST0S+24 s F'OKEK , 0 e NEtfT ; REM AZZERA I L 
CIRCUITO SONORO 

P0KE54236jr 15 SPQKE54291 ,0 sP0KE54292, 48 :F0KE542S3 r 
8 ; FQKE54230 ^ 65 . 

REM COLLEGAMENTO BASE NATO 
FRINÌ m □“ 

BASE NATO a TOP SECRET® " :GdSUB850 

" — — — - -- --4* » 5 00SUB85G 

PR I NT : FORP= 1 TO 1 0 s PR I NT Jt P Jt 13 3 A$=N* < F , 2 > 

S-GOSUB850SNÈXT 

FORK- 1 T022 : PR I NT 3 MEKT 

F 0 R K = S T OS h- 2 4 sPOKEK*0 sNENT 

FOKE 54296 r 15 :F0KE54273,24S :P0KE54276, 17 

FORK» 1 T05 s POKE53280 ^ K+2 ì P0KE5328 1 _,K 

FOR J» 1 T0255STEP2 : POKE 54273 , J ; NEKT 

FOR-J-253T00STEP~2 :P0KE54273 ,, J : NE3KT 

NEXT SPOKE53280,© SPQKE5328 1.,© SPRINT "ar sEND 

R^="3Sg CORRIERE DELLA SERA “ :GQSUB740 

m= " " : GOSIJE740 

FR I NT 

FORP=1TOÌ0 SPRINT " J S , 'F"|| " <,P r 1 ^ :OOSUB740 sNEL'T 

FORK= 1 TD3800 : NEXT 

POKES,£20 ePOKES+1,68 sP0KES+5,15sP0KES+6,215 

POKES+7 r 120:POKES+8r 100 sPQKES+12, 15 sPOKES+13,215 SP0KE54272, 
0 : P0KE53272 ,& 
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COMMODORE 64, ORA CHE CE 11 HAI... 


GUARDA CHE CI FAI 


SCEGLI TRA CENTO E CENTO PROGRAMMI. 



INTRODUZIONE 
AL BASIC. PARTE 1 


A(J ! XHMTl l A 


I U COWAHC* BASIC 


Corso dt programmazione. 

fi linguaggio didattico 
più divertente. 

Per accèdere a tutta 
la potenza del 84. 

Linguaggio di programmazione 
delta tv generazione. 

1 

mm&rm 

1 * >ì i 

>■' "wsssf!?* 1 

1 

1 wmàÉÈÉm 


Pianificarono manageriale Facile registrazióne dall. Punta un dito e Commodore fa. Per crear# tutti i testi che vuoi. 


(con manuale) 



24 ore da brivido. 


Direttamente dalie saie -giochi 


Calcio spettacolo , 


Un'orchestra in punta ai dita 



Fai , fai , fai. Commodore 64 ha tantissimi 
programmi pronti r giusti per te. È ideale per hobby , 
favoro t professione t gioco. Con programmi 
applicativi per la contabilità, l'amministra zion e, le 
vendite , le previsioni, il word- 
processing ... ^ 

Oltre a questa vastìs- 

sima biblioteca, Com - jj^^JjB^S 

modore 64 dispone di \ 

un'infinità di ” strumenti' 

per aumentare le proprie capa - 

cità. Fra questi r Forth 64 , Un- 

guaggio di programmazione 

delia quarta generazione, 

molto pofenfe; Master 64, che 

mette a disposizione il basic 4. 0 ed amplia lo stesso 


basic ; Tool 64 che amplia la potenzialità dei basic 

2.2; S/mone’ basic t per ag- 

giungere oltre WG comandi 
■ a! basic; Pet Speed , compi- 

I ^B latore basic che aumenta la 

I ■^jjB velocità d'esecuzione dei 

I ^ programmi di circa 40 volte . 

Commodore Italiana S.p.A . 
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Commodore 64 


mlSltt 


tmhffmt. 


Routines Grafiche 

in 

Linguaggio Macchina 


(^ome tutti ì possessori di Com- 
modore 64 sanno, non esistono 
comandi del Basic implementato 
che gestiscano Talta risoluzione 
e, di conseguenza, sfruttare le 
b u o uè capacità grafiche della 
macchina è piuttosto complicato. 

Le routines in L.M, pubblicate ri- 
solvono alcuni dei problemi più 
importanti. 

* Abilitazione modo testo/ modo 
grafico . La routine parte dal) 1 in- 
dirizzo decimale 49821, Se ciò 
che “vede” nella locazione 248 è 
0, viene abilitata la pagina testo 
(cioè quella normale). Se invece 
il contenuto è diverso da 0 è abi- 
litata la pagina grafica. Prima di 
lanciare la routine è pertanto ne- 
cessario scrivere nella locazione 
248 il valore adatto. 

Esempio per abilitazione di 
pagina grafica; POKE 248,1; Sys 
49821 , Per tornare al testo; PO- 
KE 248,0; Sys 49821. Si può 
tornare al modo testo anche pre- 
mendo “Run/Stop” £ “Rcstore 11 
co ntemp ora Reamente . 

* Colori della pagina grafica , Co- 

me per la pagina normale, si han- 
no 2 colori da scegliere; uno per „ + KE 251,1: POKE 252,0: Sys 

lo sfondo e uno per i punti t£ ac- er i punti è necessario, invece, 49785. La nuova mappa colore è 
cesi*. Per lo sfondo inserire il nu- riferirsi alla locazione 251 pri- allocata dalla locazione 52224 al - 
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mero corrispondente al colore ma di eseguire Sys 49785. 
desiderato (da 0 a 15) nella loca- Esempio: volendo i punti in 
zione 252. bianco e lo sfondo in nero: PO- 




la locazione 53223. 

• Pulizia delia pagina grafica Ese- 
guendo Sys 49763, si ottiene la 
pulizia istantanea della pagina 
grafica, cioè la cancellazione dì 
tutto ciò che era disegnato. La pa~ 
gina grafica è collocata dalla !oca- 
zione 57344 alla locazione 
65343 dove, cioè, normalmente 
si trova il sistema operativo. 

C- io è reso possibile dalla modi- 
fica degli interrupt attuata dalle 
routines, Ponendo la pagina grafi- 
ca in questa posizione non si sot- 
trae spazio ai programmi basic. 
Le routines appena descritte pos- 
sono essere eseguite sia diretta- 
mente che all’interno di un pro- 
gramma, mentre le routines se- 
guenti devono necessariamente 
essere eseguite da programma. 

* Routines “Plot" e ", Draw " Pri- 
ma di tutto, una breve spiegazio- 
ne per cbi non conoscesse il signi- 
ficato di questi due comandi. 
Plot X,Y significa: accendi il 
punto di coordinate X,Y. 

Draw Xl ,Vi, X2 , Y2 signifi- 
ca: traccia la linea di estremi Xl , 
Yt e X 2 , Y 2 . 

Lfe2routine$ svolgono tali com- 
piti velocemente e sono facili da 
usare dato che non richiedono 
istruzioni del tipo “POKE” per in- 
dividuare le coordinate. L’unica 
POKE da fare è nella locazione 2 
per far sapere alle routines se i 
punti (o le linee) devono essere 
accesi o spenti (cioè disegnati o 
cancellati). Se nella locazione 2 
c’è 0, il punto (ola linea) definito 
dalle coordinate viene cancellato; 
se nella locazione 2 c’è un valore 
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diverso da 0, il punto (o la linea) 
viene tracciato. Poiché ti conte- 
nuto della locazione 2 resta im- 
mutato fino a che non si intervie- 
ne con una POKE, non è ne cessa- 

p 

rio ripetere: POKE 2, X ogni vol- 
ta che si usano le routines Draw e 
Plot. 



V uniamo ora alle coordinate. 
Tutti coloro che si sono cimenta- 
ti con gli sprites, sono a cono- 
scenza delle complicazioni che 
sorgono quando f ascissa supera il 
valore 255. Non è infatti possibi- 


le “pokare” valori superiori a 
255 (o minori di 0) in una loca- 
zione di memoria. Con queste 
routines invece basta assegnare i 
valori delle coordinate a delle va- 
riabili “ speciali”. Esempio: X% = 
300: Y % = 100: Sys “Plot”. 

T ali variabili sono speciali per 
due motivi, il primo è che devo- 
no essere del tipo intero seguite 
cioè dal simbolo per cento (%), 
Ciò comporta una limitazione nei 

valori delle coordinate tra -32768 
* 

e +32767. Considerato che i valo- 
ri che rientrano nello schermo 
vanno da 0 a 319 per le ascisse e 
da 0 a 199 per le ordinate non 
sorge nessun problema. Entro tali 
limiti potete assegnare qualunque 
valore, anche negativo: le routines 
si occupano del controllo deile 
coordinate e “Plottano” il punto 
solo se va tutto bene, 

* // punto o la linea sono interne 
allo schermo. Tale controllo vie- 
ne effettuato dalla routine Draw 
su ogni punto della linea. Il van- 
taggio rispetto ad un controllo 
sui soli estremi è di poter traccia- 
re anche le linee che hanno uno o 
entrambi gli estremi “out” (ov- 
viamente viene disegnata la sola 
parte che rientra nello schermo), 
mentre con il controllo dei soli 
estremi, esse sarebbero rifiutate 
“in blocco”, 

I i rallentamento conseguente 
alla ripetizione dei controlli non 
è eccessivo: una linea da 300 
punti viene tracciata in 7 centesi- 
mi di secondo, 

* La seconda condizione speciale 

è che nella riga di partenza del 







programma, o coTniinque, prima 
dì ogni altra variabile, occorre de- 
finire le 2 [se sì usa solo la 
“Plot”) o 4 [ se sì usa anche la 
“Draw”) variabili che conterran- 
n o i valori delle coordinate* 
Esempio: se il programma comin- 
cia dalfa riga ltb tale riga dovrà 
essere del tipo: 10 A% = 0: = 

0: C% = 0: D% = 0, Ovviamente i 
nomi delle variabili potete sce- 
glierli diversi e non dovete obbli- 
gatoriamente assegnare loro va- 
lore 0. L'importante è definirle 
prima di qualunque altra variabi- 
le. C ? è un'eccezione: potete in- 
serirle in qualunque punto del 
programma se sono immediata- 
mente precedute da un comando 
“CLR” (vedi linea 100 del lista- 
to). In ogni caso però sempre pri- 
ma delie linee in cui si trovano le 
Sys “Draw” e “Plot”. il coman- 
do “CLR” cancella tutte le varia- 
bili presenti in memoria: quindi 
usatelo con attenzione. 

L ordine in cui vengono definite 
le variabili “speciali” nella 1 H riga 
è molto importante: la prima vie- 
ne sempre considerata dalle rou- 
tines come contenente il valore 
dell’ascissa del punto da plottare 
o, se è in esecuzione la “Draw”, 
come depositaria dell'ascissa del 
punto dì partenza della linea. La 

seconda ha le stesse funzioni solo 
che si tratta dell 1 ordinata* La ter- 
za viene considerata come valore 
dell’ascissa del secondo estremo 
della linea da tracciare. La quarta 
è f’ordlnata dello stesso punto. 

I n altre parole, se prendiamo 
1 * e sempio precedente, facendo 


eseguire: A% = 50: R% = 100: 
Sys “Plot” si avrà lo stesso punto 
che si avrebbe con ìì% = 50 : A% 
=100^ Sys “Plot” perchè avevamo 
stabilito che A% conteneva 
l'ascissa e l'ordinata. 

N^on è obbligatorio dare tutte le 
coordinate ogni volta che richia- 
mate una routine: a quelle man- 
canti verrà assegnato automatica- 
mente l'ultimo valore. Si guar- 
dino ad esempio le righe da 310 
a 330* Le coordinate del punto 
di partenza delle linee (XI 
Yl%), vengono date una sola vol- 
ta, poiché tale punto è lo stesso 
per tutte le linee da tracciare ed è 
quindi inutile ripeterne le coordi- 
nate ogni volta. 

S e volete tracciare linee molto 
lunghe {molto più lunghe dello 
schermo), tenete presente che la 
rout ine impiegherà tanto più 
tempo quanto più lunga è la linea 
(qualche secondo per una linea 
da 30.000 punti) e in quel perio- 
do di tempo il computer non ac- 
cetta messaggi dalla tastiera ed 
inoltre l'orologio interno non vie- 
ne incrementato (perchè gli inter- 
rupt sono disabilitati). Se la pre- 
cisione del timer è per voi essen- 
ziale vi posso fornire una variante 
di queste routine che non ha que- 
s to inconveniente, ma sottrae 
spazio ai programmi in basic* 

P er scrupolo devo avvertirvi 
che le linee da tracciare non devo- 
no essere più lunghe di 32767 
punti altrimenti si avrà un over- 
lìow nelle operazioni di calcolo 
eseguite dalla routine e la linea 


che ne deriverà sarà “sballata”. 
Esempio: se ponete Xì % - 
-1500: X2%= 2000, quindi AX = 
35.000, la lìnea che ne risulte- 
rà non sarà corretta, 

U n ultimo importante avverti- 
mento: se volete fermare un pro- 
gramma che sta eseguendo delle 
“Draw” o delle “Plot” fatelo 
esclusivamente con il solo tasto 
“Run/Stop”, Quando sarete sicu- 
ri che il programma si è arrestato 

potrete premere anche “Resto- 

» 

re”. E' sempre a causa degli inter- 
rupt. Se premete “Restare” men- 
tre una linea è in corso di traccia- 
mento il computer sì “inchioda” 
e dovete spegnerlo, A chi non ha 
mai visto il CBM 64 operare in 
alta risoluzione, vorrei ricordare 
che se i punti appaiono più o me- 
no brillanti c di colori diversi da 

quanto desiderato, ciò è dovuto 
alla macchina e non alle routines* 
E' un difetto che scompare trac- 
ciando punti contigui, 

V orrei far notare una piccola 
“finezza”* Se provate a far dise- 
gnare una linea di estremi (1,10) 
e (20,11) mediante bistruzione 
“Plot” {esempio: POR X = 1 TO 
20: X% = X; Y% = 1/19.X: Sys 
“Plot”: NEXT), il risultato sa- 
rà: 19 punti di ordinata 10 e Puh 
timo di ordinata 11* Ciò è dovu- 
to al fatto di considerare solo la 
parte intera delle coordinate, per 
cui anche quando l'ordinata assu- 
me valori prossimi a 11 viene 
pìottato un punto di ordinata 10* 
“Esteticamente” il risultato che^ 
ne deriva è pessimo. 

Con la routine “Draw”, invece, si 
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Riservato 
agli ingegneri 

Il miglior software tecnico 
su elaboratori 
CBM - Commodore 
Ora anche disponibile su 
Commodore 64 

“S.S. - 80” 

L'ormai famoso programma per il calcolo delle strutture in- 
telaiate piane in c.a, P in zona sismica, che sviluppa e dise- 
gna anche le carpenterie delle armature, 

(Ultima versione Luglio/1 982 nostra esclusiva). 


“FONDAZIONI” 

Risolve tutti i problemi di fondazioni (trave elastica su suo- 
lo elastico) dì strutture in c.a, in zona sismica e non, risol- 
vendo l'intero graticcio di fondazione e proponendo una 
carpenteria sofisticata ed ottimizzata 


“MURI DI SOSTEGNO” 

A gravità, a mensola o a contrafforti, anche in zona sismi- 
ca, secondo ii D.M. dei 21/1/1981, 


"PENDÌI” 

Analizza la stabilità di un pendio o di un fronte di scavo sot- 
to diverse condizioni e la verifica relativa viene condotta in 
termini di tensioni effettive; la stima dei fattori di sicurezza 
viene effettuata secondo i metodi di Fellenius, Bishop e 
Jambu. 


“COMPUTI METRICI” 

Analisi ed elenco prezzi Metodo veloce e completamente 
automatizzato per il computo e la stima dei lavori. 


“REVISIONE PREZZI” 

Secondo le disposizioni di legge vigenti. Praticità ed auto- 
mazione consentono di eseguire velocemente revisioni di 
prezzi anche per lunghi periodi. 


Richiedeteci documentazione e output dei prò - 
grammi di vostro interesse. Resterete sbalorditi 
dalla versatilità e dalla completezza del nostro 
software . 


SIRANGELO COMPUTER Srl 


Via Parisio, 25 - Cosenza 0984-75741 

NEW NEW NEW NEW NEW NEW NEW 
È pronto il nuovissimo programma 
“ORARIO SCOLASTICO” 



I SISTEM M CON 


MIL'INVI 



Filiali:: Milano Tel 02/75451 -Torino Tei. 011/6142 192 
Mastre TeE. 041/962255 ^Genova lei. 010/451&0J 
BoLui.™ Td. 05 1/557157 -Firenze Tel- 055/355841 
Roma Tel. 06/58421 - Napoli Tel 081/660266, 

Distribuì uri jiulGri/Zall in lulla Italia -vedi Pitglrie Gialle. 







RRCAZKHE ALBICALE SI EVOLVONO. 

SUPPORTI MAGNETICI 3M. 

NZIONE Al PRIMATO TECNOLOGICO. 







1 primo nastro per 
computer è stato 
prodotto dalla 3M 
nel 1952. Un primato 
che ha consentito la 
realizzazione dei 
supporti magnetici più 
affidabili e sicuri. 

Le Diskette 3M, 
ad esempio. Omolo 
dai maggiori cost 
Certificate al 
Garantite 5 an 

in tutto il molalo. Prescelte come 
riferimento te rn azionale da ECMA, 

.Una gamma completa 
kette 8 pollici che per le 
Minidiskette 5 pollici e un quarto. 

Le Diskette 3M, grazie all’esclusivo 


rivestimento magnetico, 
garantiscono 
un’eccezionale resistenza 
all'usura e la massima 
affidabilità. 

La stessa affidabilità 
che offrono tutti i 
Supporti Magnetici 3M: 
Nastri per Computer, 
Dischi Magnetici, 

Data Cartridge. 

Le Diskette e i Nastri Magnetici 3M 
sono interamente fabbricati in Italia e 
questo significa immediata reperibilità 
e migliore assistenza. 

Assistenza e consulenza tecnica 
che il Cliente trova presso le 8 filiali, 
i venditori diretti e 400 distributori 3M, 
in tutta Italia. 


SISTEMI PER L'UFFICIO 3M. LA PERFEZIONE DELLA SPECE. 



Desidero ricevere ulteriori informazioni 
sui Supporti Magnetici 3M, 

No me 


Azienda 
Via . 

Cap 


.Città 


I 


c c c 

Ritagliare e spedire a: 

3M Italia 5. p. A -Linea Diretta- 
Casella Postale 1043 1/1041 2-201 10 Milana 
Oppure telefonare a: 02/75451 


SUA 



ottiene una rappresentazione 
molto più naturale: 10 punti di 
ordinata 10 e 10 di ordinata 11; e 
questo senza che la routine pre- 
veda un controllo dei decimali 
(cosa che avrebbe complicato e 
rallentato l'esecuzione}. Ciò av- 
viene grazie ad un piccolo trucco 
nella determinazione del coef- 
ficiente angolare. Si suggerisce di 
trascrivere con molta attenzione 
il listato: un solo errore nella txa- 


“Run ,, < Da prima salvate le routi- 
nes su nastro (o su disco), altri- 
menti poi dovrete ricopiarle dac- 
capo. Se invece non tutto è chia- 
ro, o se gli esempi riportati nel 
listato non vi sono d'aiuto, pote- 
te telefonarmi* 

L e routines vanno allocate a 
partire dalla locazione 49152 (ve- 
di linea 70)* Sono in una “zona 1 * 
non accessibile dai basic c una 


mono neppure il software-reset 
(Sys 64738), 

Ricordo gli indirizzi delle “Sys”: 

49693 per effettuare “Plot” 
49728 per effettuare “Draw” 
49763 per effettuare “Clcar 
Screen” 

49785 per effettuare “Color” 
49821 per effettuare “Map/Text 
Mode”. 


scrizione dei “data” porterà qua- 
si sicuramente alPinchiodamen- 
to del computer quando darete il 


volta immagazzinate non vengo- 
no più cancellate fino allo spegni- 
mento della macchina. Non te- 


panilo Toma 

V a Pordenone, 13 - Milano 
Tei. 02/2159024 


3 REM #* ROUTINES GRAFICHE PER CSM £4 #* 


2 REM *** DI ORNILO TOMA *** 

3 REM *** VIA PORDENONE 13 *** 

4 REM ■*** MILANO TEL. 02/E 153324 *** 

5 REM ■ '+T T *** 


£ REM ###+«************# ************** 

■7 rem 

?£■ FRI NT" J"SPC< £32 > "^LETTURA DEI DATA " : FDR I =43 1S2T049868 1 
READA : POKE I ,A : NEXT 
90 REM 

95 REM *#* ESEMPIO DI ORAW £ PLOT *#* 

99 REM 

100 CLR : X 1X=0 : Y1X=0 : X£X=0 s Y2X=0 : REM *** VARIABILI SCELTE 
PER LE COORDINATE 

110 OR =49728 : PL = 49693 * SC =49763 SQL =49785 sMO = 43321 s REM ** 

INDIRIZZI DELLE ROUTINES 
£00 SYSSC 1 REM +*# PULISCE LO SCHERMO 
£10 P0KEH51 ,3S P0KÈ252/6S3YSCLIREM *** 

DEFINISCE I COLORI DELLA PAG. GRAFICA 
220 P0KE243 , 1 « SYSMO :REM *** PASSA AL MAP MODE 

300 POKE2 , \ ‘ REM ■*** FLAG " D ISEGNA/CANCELLA '* SETTATO PER DISEGNARE 
310 XI y.= 1 10 ! Y1J£= 103 8F0R 1 =0TDS . E9STEP . 1 

323 X2:-:=SIN< 11*109+1 105 Y2X=C0S( I ) * 180+ 100 : SYSDR s REM #** DRAW 
330 NEXT 

340 FOR I =0TOS . 233TEP . 1 

350 X 1X**S INC 1 ) *32M27Ó: Y1X= 1*32 sSYSRL: REM *** PLOT 
3G0 NEXT 

380 IFREEK( 2 X >0THENPOKE£ ,0 : G0T03 10 :REM *** FLAG SETTATO PER CANCELLARE 
490 REM 

500 REM *** ALTRO ESEMPIO DI DRAW *** 

550 P0K.E2 , 1 

5S0 FOR I =0TO40sXleX=XSX i Y1X=Y2X 

570 X2X=RND< 1 > *3£0 : Y2X*RND( 1)*£00SSYSDR 

580 FORK=0TO 103! NEXT: REM *## CICLO DI RALLENTAMENTO 
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533 NEXT 

630 EORK =0TOE030 : NEXT 

700 PDKE243 ,0! SYSMO ì REM *** PASSA AL TEXT MODE 
339 END 
3500 REM 

3510 REM **** ROUTINES IN LINGUAGGIO MACCHINA **** 

3523 REM 

3600 DATA 73,255, 143 ,250 , 1 3 1 ,243 , 73 ,255 , 143 ,243 ,248 ,243 ,208,2 ,246 
3700 DATA 250,160,202,162,255,36 

5000 DATA 160,17,177,45, 133,83, 136 , 177,45, 133,34 ,160,24,177,45,133, 
35,138, 17? 

50 10 DATA 45 133 ,36 

5020 DATA 160,3,177,45,133,87,136,177 

5030 DATA 45, 133^83,163,10,177,45,133,31 ,133,78,136,177,45,133, 

32. 133.73.36 
5040 DATA 234,234 

5180 DATA 163,232 ,162,0,56 ,165,33,223,87, L33 ,248 , 165,34,223,88, 

133,250, 16 ,3 ,32 

5110 DATA 0, 132, 140,55 , 133 , 142,59, 133, ISO, 138, 138 ,208,2,160,230, 

140,62, 183 

5200 DATA 160,232, 162,0,56,165,35,223,31 , 133,253, 165,96,223,32, 
133,254,16,5 

5210 DATA 162,4,32,0,132,140,106,183,142,110,133,134,83,134,30 
5215 DATA 160,133,138,203,2,160,230,140 

5220 DATA 113,133,180,56, 163,229,224,0,208,4,160,24,169, 101,140,72, 
133,141,75 

5230 DATA 133,141,31,133,141,87,133,141 ,33, 133,169,234 ,141,115,133 
5450 DATA 165 ,243,203,2,165,250,208,27,163,36,141, 115,133,24,144,3 
5500 DATA 32,104,193,32,141 , 133,165,78,137,95,208,244,165,79, 197,96, 

208 .248.36 

5600 DATA 230,243,203,2,236,253,230,253,208,2,230,254 
5650 DATA 163,0,133,251,133 ,252, 133,247, 133,248, 162,33, 165,247,56,223,249 
5700 DATA 1-63, 165,243,229 ,250, 144,5, 133,246 ,152, 133 ,247 ,33 ,25 1 ,38,252,38 
5300 DATA 253,38,254,38,247,38,243,202,203,224 

5350 DATA 165,247,203,4 , 165,248,240,7, 182,0,232,246,250,240,251 
5900 DATA 163,1,165,253,208,6,165,254,208,2,160,0,132,80 
6006 DATA 24 , 144 , U , 166 ,87 ,232 , 134 ,87 ,224 ,0 ,208 ,2 ,230 ,88 
6650 DATA 185,91,133,73,165,32,133,79 

S 100 DATA 24,165,83,181,251,133,89,165,30,101 ,£52 ,133,30,165,91, 

101 ,253 ,133,31 

6130 DATA 135,32,101,254,133,92 

6180 OATA 32,141,133,155,80,240,24,166,78,232,134,78,224,0 
8200 DATA £03,2,230 ,78 ,234 ,165,78,137,31 ,208,23 l , 165,79,197,92,208,248 
8460 OATA 165,37, 197,33,208, 175, 165,38, 137,34,208,248,96 
7050 DATA 165,38,240,12,201,1,240,1,96,165,87,201,64,144,1,96 
7100 OATA 155,73,240,1,36,165,78,201,200,144,1,96 
7250 DATA 165,78,41,7,133,247,165,78,74,74,41,254,168 

7300 DATA 185,235, 133,56,223,247, 133 ,247 ,185,236, 193,24,101 ,88,133,246 
7430 DATA 165,87,4 1 ,248,186 , 1 65 ,87 ,4 1 , 7 , 170 , 189,227, 193 , 166,2,240,5 
7450 DATA t ? ,247 , 145 ,24? , 96 , 73 ,255 ,49 ,24? , 145 ,247 , 96 
7500 DATA 128,64,32,16,8,4,2,1 
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PARTECIPA CON “COMMODORE COMPUTER CLUB” AL 
CONCORSO INTERNAZIONALE PER IL VIDEOGIOCO DELL’ANNO 

$ 1 75.000 IN PALIO 



l(?£hTE fi NEW UIOED 

COME ANO Vai COUCD 




HAKE YOURSELF A 


MILLIONAIRE 


Esclusivo per i 
lettori di 
Commodore 
Computer Club 


Crea un wdeogioco intelligente ed originate potrai diventare milionaria Questo fantastico 

concorso, organizzato dati '(RP {The I r eternai ions£-*^ Reg is ter or indipefibent Com pu ter Programmerà 
Itd.) e dal famoso Marc McGorrnack International Management Group, e sponsorizzato per l'Italia da 
Commodore Computer Cdb. b offre un ‘occasione unica nenia vita. I prèmi sono elevati ed immediati, e ad 
essi si aggiungerà una royaiiy de! 1 0% sulle vendite dei giochi premiati a: pu importanti distributori in tutto à 
mondo J 1 vincitori, inoltre; potranno partecipare ad una serie ci trasmissioni sulle principali reti televisive del 
mondo. La tua conoscenza de. computerà e la tua immaginarono possom : farti diventare rapidamente 
ceco e famoso! 

CINQUE PREMI 
DI CONSOLAZIONE 
DI $15.000 


OLTRE 


PRIMO PREMIO: $ 100.000 

Prepara un videogame nuovo e originale per una delle seguenti categorie SPORT, SIMULAZIONI 
ARCADE, STRATEGIA. ÀWENTURA/FANfT ASiA o per la 
sezione speciale prevista per quei programmi che, pur non 
essendo dei veti giochi, abbiano notevoli caratteristiche 
didattiche o di divertimene Sono altresì previsi* una sor e di 
premi al "Merito" che consentiranno di stampigliare suite 
confezioni commerciali dei videogiochi selezionati la dizione 
'An interna tonai Videogame of 1 he Vear MERIT AVv'ARD”. 

E' una grande sfida. Ed i premi, sia in termini finanziari che di 
prestigio, sono eccezionali. 

Questo, è certamente il concorso intemazionale paO eccitante 
per ogni appassionato di computer. 


APPARIRETE 

T\/| 1 sei vincitori saranno invitati a 
I v p far carte di uno spettacolare 
show televisivo che verrà distribuito ai 
più importanti network dei monco, 
Quanto basta ner renderti famoso 1 


COME 

PARTECIPARE 

invia «i tuo gioco o t tuo: giochi su 
cassetta indicando su quale 
computer gira o. girano utilizzando 
questo coupon di qualificazione. 
Riceverai andie una doaxnentazbne 
completa con le regole dettagliate 
de! concorso. 

ENTRO E NON OLTRE 
IL 31 MAGGIO 1984 

A: IRP United. Rnewood 
Film Studio®. Iver Bucks 
Engiand 
Nome: 


indirizzo 


SCI 






7CBB DATA 7,254 , Ì3B, £52, 135,251 ,71 ,2SS 
7700 DATA 7 ,249 , 1SS ,247 , 135,246 ,7 I ,245 
7800 DATA 7,244,189,242,135,241,71,840 
7906 DATA 7,839,133,837,135,836,71,535 
8000 DATA 7 ,234 , 133,838, 135,83 1 ,71 ,830 
8100 DATA 7,889,193,887,135,886,71,825 
8200 DATA 7,284 

8532 REM 

8533 REM **** PLOT **** 

880G DATA 169,854,45,14,820,141,14,820,169,253,37,1,133,1 
3700 DATA 32,43,198,38,141,133 

8800 DATA 169,2,5,1,133,1,189,1,13,14,880,141,14,880,36 
3993 REM 

9000 REM **** DRAM *### 

9100 DATA 189,854,45,14,880,141,14,820,163,253,37,1,133,1 
9860 DATA 32,21,192,32,78,132 

9300 DATA 169,2,5, 1 , 133, 1 , 169, 1 , 13, 14 ,820, 141 , 14, 880, SS 
58339 REM 

59000 REM *** PULISCE SCHERMO *** 

60000 DATA 163,224 , 133 ,250, 163,0, 133,243,168,38, 168 ,145,249,200 , 
208,851,830,250 

60100 DATA 202,208,248,96 

60148 REM 

60149 REM *** DEFINISCE COLORI *+* 

60150 DATA 169,204,133,250,180,0,132,843,185,251,10,10,10, 
10,133,853,165,252 

60200 DATA 4 1 , 15,24 , 101 ,853 , 182,4 , 145 ,243 ,206 ,£0S ,25 1,230, 
850,202 ,208,246,96 

60998 REM 

60999 REM *** TEXT MG DE /MA P MODE *## 

61000 DATA 165,248,240,22,189,32,13,17,808,141,17,203 
61050 DATA 163,56,141,84,263,169,252,45,0,881,141,0,281,96 
61100 DATA 169,223,45,17,208,141,17,808 

61150 DATA 163,81,141,24,203,163,3,13,0,281,141,0,221,36 
READY , 


10 REM ESEMPIO DI APPLICAZIONE. 

20 REM ESEGUIRE DOPO AVER ALLOCATO LE 
30 REM ROUTINE IN LINGUAGGIO MACCHINA 
40 ! 

38 REM DICHIARAZIONE QUATTRO VARIABILI 

ISO a i y.=0 : ftsy.= i00!F i ;<= 100 spande 

110 FGKE248 , 1 ! REM MODO GRAFICO 

112 SYS 4S82 1 : REM ABILITAZIONE ROUTINE 

114 SYS 49763= REM CANCELLAZIONE SCHERMO 

115 SYS 49728! REM PLOT LINEA 

120 SET fl$! IEA¥= " "THEN12B : REM ATTESA 
130 PGKE24S ,0! SYS 43321 :REM MODO TESTO 

READY. 
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Commodore 64 


Archivio Disch i 



I 1 passaggio dal registratore al 
floppy» singolo o doppio» segna 
una svolta importante per chi 
vuole programmare: basta coi 
lunghi minuti di attesa per il cari- 
camento dei programmi. 

Quando però i dischetti co- 
minciano ad aumentare di nume- 
ro, non ci si ricorda più su quale 
lisco sia stato registrato un certo 
irogramma. Ecco allora Pidea di 
endere più agevole la ricerca, 
m Puso di un programma appo- 
tamente studiato. 

Esso infatti analizza il conte- 
nuto di ogni disco (vedremo in 
seguito come si fa), e lo memo- 
rizza.,. su Un dischetto a parte, 

Quando si vuole cercare un 
dato programma, sarà il compu- 
ter a dirci su quale disco si trova. 
Questa» però, è solo una delle op- 
zioni offerte dal programma, che, 
anche se piuttosto lungo, ricom- 
pensa con i vantaggi che offre la 
fatica di ricopiarlo, ma vediamo 
ora come si usa e quali sono le 
opzioni disponibili, 

Prima di tutto bisogna regi- 
strare il programma 4 s Archivio 
Dischi” su un dischetto nuovo, 
ma si può formattare un dischet- 
to anche in modo diretto, digi- 
tando: 

OPEN15,S,15, “NO: nome disco, 

Computer Club - 60 


uy* 

Tale disco, insieme con il pro- 
gramma pubblicato nei presen- 
te fascicolo, farà da archivio per 
tutti gli altri dischetti. 

Come si usa 

j^ppena dato il RUN, bisogna 


dire se si dispone di un floppy 
singolo (1540 oppure 1541) o 
doppio, (4040 e simili) premen- 
do SoD rispettivamente. 

Quindi bisogna inserire nel 
Drive 0 il nostro disco -archivio e, 
quando tutto è pronto, si deve 
premere “S”. 

A questo punto il computer 


leggerà alcuni dati dal dischetto 
(se è la prima volta che si usa 
questo programma, non leggerà 
niente, ma il programma funzio- 
nerà ugualmente) e, infine, mo- 
strerà, una lista delie varie opzio- 
ni che sono 5 oltre a quella di 
fine lavoro. Per scegliere l’opzio- 
ne voluta è sufficiente premere il 
tasto numerico relativo ad essa. 

Analizziamo ora ogni opzio- 
ne. 

Analizzare un disco 

S upponiarno ora, di avere un 
drive singolo. Dobbiamo quindi 
togliere il disco archivio ed intro- 
durre quello da analizzare. Fatta 
questa operazione, premere un 
tasto qualsiasi. Premendo però 
“F” sì ritorna alle opzioni prin- 
cipali. Se non abbiamo premuto 
*‘F”, il computer leggerà il nome 
e l’ID del dischetto in esame, e 
chiederà se è proprio quello il 
floppy che si intende analizzare. 
In caso affermativo premiamo 
“S” (premendo invece “N” ritor- 
na a chiedere di mettere il disco 
da analizzare nel drive 0), 

A questo punto bisogna aspet- 
tare per permettere al computer 
di leggere e memorizzare la Di- 
rectory, cioè ì nomi di tutti i pro- 
grammi registrati sul disco* Com- 
pletata tale operazione, chiede di 
mettere il disco archivio nel drive 
0, e, fatto ciò, di premere 

Comincierà quindi a memoriz- 
zare i dati ricavati dal dischetto 
precedentemente analizzato e a 
riordinare alcuni dati che gli ser- 
viranno successivamente in fase 
di ricerca. Alla fine torna a chie- 


dere di mettere un altro disco da 
analizzare nel drive Q, e rispon- 
dendo ££ F” tornerà alle opzioni 
principali, 

Cancellare i dati di un disco 

(Questo serve per cancellare dal 
disco archivio i dati relativi a un 
certo disco. 



fi W 



0° j il \ 

. 

Bisogna dare l’TD del disco da 
cancellare, oppure, premendo 
Return, si può dare il nome, (pre- 
mendo invece ancora Return si 
ritorna alle opzioni principali). 

Supponiamo di voler cancella- 
re i dati relativi al disco con ID 
“01”: digitiamo allora “Gl” (Re- 
turn), 

A questo punto il computer 


visualizza il nome del disco e la 
sua 1D e chiede se è il disco i cui 
dati intendiamo cancellare dal- 
l 1 archivio. Rispondendo “$” i da 
ti di quel disco verranno cancella- 
ti, e verrà richiesta ancora TlD 
del disco da cancellare. 

Premendo due volte Return, il 
computer riordina alcuni dati sul 
disco archivio e ritorna alle op- 
zioni principali. 

Output directory dì uri disco 

isogna dare l’ID o il nome del 
disco (anche qui è valido lo stes- 
so procedimento visto prima, per 
cut premendo due volte Return, 
si ritorna alle opzioni principali). 
Se il disco richiesto è 
presente nell’archivio, se cioè è 
già stato fatto analizzare, ne ver- 
rà visualizzato il nome e l’ID. Se 
è quello giusto premiamo 

A questo punto vengono letti 
i dati di quel disco, precedente- 
mente memorizzati con l’opzione 
I, e verrà chiesto se si vuole man- 
dare questi dati su stampante. 

In caso contrario verranno vi- 
sualizzati su video, 

Durante la visualizzazione, 
premendo il tasto “F”, la visua- 
lizzazione verrà interrotta e si ri- 
torna all’ inizio, altrimenti verran- 
no visualizzati tutti i dati di quei 
disco. 

Cercare un programma specìfico 
* 

questa l’opzione più interes- 
sante, e più utile; ci permette di 
sapere su quali dischetti si trova 
un dato programma. 

Bisogna dare il nome del pro- 
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Ogni giorno in Europa si apre un nuovo computer shop, 

Un pubblico sempre più numeroso è attirato verso il person 
e si rivolge ai negozi specializzati per trovare la sua marca 
preferita. 

Tu che hai capito qual è il futuro dei computer e hai deciso 
di aprire un negozio, 
cerchi un nome che dia prestigio 
e una organizzazione che 
non ponga vincoli ma offra 
vantaggi concreti. 

Computeria vuol dire negozi 
di computer fin dal 1 979. 

Computeria è anche una 
organizzazione che ha avviato 
rapporti di collaborazione 
con tutti ì principali fornitori, 
perciò i suoi affiliati possono 
scegliere e vendere le marche 
più prestigiose e richieste. 

E inoltre Computeria ti dà un prezioso 
know-how, una ricchissima dotazione di 
programmi, supersconti esclusivi, 
vantaggi economici sul leasing. 

E tanta pubblicità. 

Se vuoi essere libero di scegli* 
vuoi vendere nel tuo negozio, 
l’organizzazione Computeria 
è la tua scelta obbligata. 





















grani ma da cercare, e lo si può 
dare anche troncato, seguito dal 
simbolo tc In questo caso ver- 
ranno cercati tutti i programmi 
che iniziano con le lettere che 
precedono il simbolo u **\ Per 
esempio, se si vogliono ricercare 
tutti i programmi che iniziano 
con “ÀR 1 ’, bisogna digitare 
ttì AR*’\ Verranno visualizzati sia 
TIC che il nome del disco su cui 
quel dato programma è registra- 
to. 

Alla fine, premendo un tasto, 
si ritorna all’inizio» e, premendo 
Return, alle opzioni principali. 

List IO e nomi dischi 

C^i sono, in questa opzione, al- 


tre cinque possibilità di scelta, 
più una per tornare alle opzioni 
principali. 

* Stampa mappa ID usate . Si usa 
solo con la stampante. 

Viene stampata una griglia 
sulla quale vengono indicate le 
1D già usate e quelle libere. Se si 
vuole interrompere la stampa, ba- 
sta premere (< F", 

* Veloce lìst delle ID usate. Viene 
richiesto se si vuole mandare i da- 
ti su stampante o no, quindi ven- 
gono visualizzate tutte le ID usa- 
te nei dischi memorizzati, ed il 
numero totale dei dischi stessi, 

* List ID e nomi. Anche qui si 
può scegliere se si vogliono man- 
dare i dati su stampante, e poi 
vengono visualizzate sia le ID che 


i nomi dei dischi archiviati 

* List min. blocks free per disco. 
E r una ricerca dei dischi che han- 
no, come numero minimo di 
blocchi liberi, il valore che verrà 
introdotto. Per esempio, introdu- 
cendo 100, verranno visualizzati 
tutti i dischi che hanno più di 
100 blocchi liberi. 

• Lìst max. blocks free. Al con- 

trario della opzione precedente, 
con questa vengono visualizzati i 
dischi che hanno, al massimo, il 
numero * da noi introdotto di 
blocchi liberi. Per esempio, digi- 
tando il valore 99, vengono visua- 
lizzati tutti i dischetti che hanno 
meno di 99 blocchi liberi. * 

Giovanni Bollò 
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340 
350 
3S0 
370 
380 
390 
400 
4 1 0 
420 
430 
440 
450 
460 
470 
480 
490 


5 1 0 
520 
530 
548 
550 
56G 
570 
588 
590 
6 00 
■6 1 6 

628 

638 

640 

650 

660 

670 

.680 

690 

700 

710 

729 

730 
748 
75© 

760 

770 

788 

790 

800 

810 


PEI NTSPC < 5 > ; " B - 
PR I NTSPC < 5 > .? " 1 - 
FRINTSPCCS^ ; "2 » 
FRI NTSPC < 5> - n '“- - 




G0SUB244© :DIMQr*< 236 > ,X$<230> 

PRINT" STO LEGGENDO Lfi DIRECTORY PRINCIPALE:” 

OPENl.5,3, 13 :PRINT#15, "10" ;GOSUB2520 
0PEN5.,S.,5, "SsDISK DIR XREF,S,R" 

I NFUTtìlS, EH ,EM* ,ET,ES : IFEN=62THEN490 
INPUT#5,X$<NX> :SS-ST :GOSUB2520 :NX=NX+1 : IFSS=0THEN390 
G0T0436 

S$=" " :FORX=lTOY SGOSUB450 :S#=St+C« sNEXTX : RETURN 
FORX« 1 TOV s GOSU6450 i NEXTX : RETURN 
V=0 :GOSUB450 : 1 FCstO" " THENVsASCCC*} 

RETURN 
GET#5 r C* 

SS=ST : I NPUT # 1 5 , EH , EM$ .. ET , ES s I FEH=&THENRETURN 
F'R I NTHC4 ; RV4 ; " ERRORE SU D I SCO ! “ s FR I NT s PR I NTEH ; EM* ; ET ; ES 
GO3UB2450 SG0SUB2416 
CL0SE4 : GL0SE5 : CX-0 : GOSUB2440 

FINE" : PRIHT 

ANALIZZARE UN DISCO" SPRINT 
CANCELLARE I ORTI DI UN DISCO" SPRINT 
OUTPUT D I RECTOR V D I UN D I SCO " s PR I NT 
FRI NT S'PC ( 5 > ; " 4 - CERCARE UN PROGRAMMA SPECIFICO" SPRINT 
PRI NTSPC <S> ;"5 - LIST IO E NOMI DEI DISCHI " SPRINT 
G0SUB2450 SPRINT" SCEGLI L'OPZIONE DESIDERATA 
G0SUB2426 s I FC*= " 0 " THENPR INTHC* sGOTOSCSO 
V=#tL<C*> : IFVC1ORVS5THEN570 
ONVGOTO60O 1 460 , 1 260> 1 980 , 1 S38 

CX=0 sPRINTHC* METTI DISCO DA RNRLIZZRRE NEL JgORIVE "DR4 
PRIHT SPRINT "PREMI UN TASTO PER CONTINUARE " sPRINTRV* ; ” 

F PER FINIRE" 

GOSUB2420 : IFC*»"F"THEN498 

G0SUB2456 : FRI NT " QK " sPRINT#15, "I “+DR$ : 00 SUB 46 S 
0FEN5 .r 8 ^ 5 T +DR^+ " ,S,R" : G0SUB466 

G0SUB43® s VF=V s G0SUB458 : 1 FVFsS7THEHV=2 sGG5UB420 sGOTOSS© 

NEì=0 sF0RZ=1T035 :GOSUB430 s IFZOIS' 

V=3 sGOS!JB420 sHEXTZ 

Y= 1 6 s G0SUB4 1 0 : DN£-S* : Y=2 : GOSUB420 
Y=2 : G0SUB4 1 0 ; D I *»LEFT* < S*+" " ,2> 

G0SUB246© s IFC$= "N"THEN1 250 
I FNX=0THEMS30 
F0RX«8T0NX- 1 : C*=LEFT$<XSCX> ,2 J s I FDI«t<C*THEN830 
I FD I $<>C$THENNEXTX : GOTO830 
I FDHéaM I D$ < X* C X ) , 3> T HEN830 

PR INTHC=T ; RV«; " *** ATTENZIONE ##*" SPRINT "H8 L'ID : '* ; 

RV* ;OI$;RF$ 

PRIHT SPRINT "DEL DISCO : “jRVSuDN* 

PRINT :PF;INT"E r GIR" STATA CATALOGATA CON UN DIVERSO"; 

FRI NT SPRINT "NOME DEL DISCO s '* ; RV* jMID* Oi$ < X> .,3) :GOSUB24O0 
FRI NT” SE CATALOGO QUESTO DISCO SCANCELLO " 

PRINT SPRINT" I DATI DEL DISCO 13" ; M I D* < X* C X :> , 3 > ; GOSUB 2450 
F’R I NT " DEVO CATALOGARLO ?"; sGO3UB2490 s IFC*="N"THEN1250 
PRINTHCf ; "STO CATALOGANDO IL DISCO CON UN NUOVO NOME" 


1 8THENN8=NB+V 


» 


Scila su dischetto Questo listato, lì seguito verrà pubblicato net prossimo fascicolo. 
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Guida mercato Commodore 


Prodotto 


Prezzo 

(IVA esclusa) 


Home Computer Vìe 20 


199.000 

Unità di espansione {1020} 


295.000 

Modulo di espansione (1023) 


135.000 

Cartuccia da 3K di memoria 

(1210) 

49.000 

Cartuccia da 8K di memoria 

a uo} 

75.000 

Cartuccia de 16 K di memoria 

(mi) 

125.000 

Cartuccia Vie rat 

(4011} 

95.000 

Permette di controllare il funzionamento di 

allarmi antifurto,, porte 

automatiche, teletoni, trasmittenti ed apparecchi similari. 

Vie iwitch 

(4012) 

225 000 

Possono essere collegati fino 

a 16 ViC 20 con un floppy e una 

stampante (distanza massima 1500 mi,} 


Interfaccia IEEE 488 

{ T-l } 

175.000 

Interfaccia Centronics 

(T3) 

1 1 5.000 

RS232-G sdaptar 

(1 Oli- A) 

75.000 

RS132-C adapter 

noii-B) 

75.000 

Commodore 64 

“ — - — 

vf 



CPU 64K RAM (CBM64) 625.000 

C 64 Executive! f&X 64} 2.350 .000 

Si ani a operativo CP/M ( CP/M } 125.000 

Consente cfi programmare il Commodore 64 in linguaggio CP/M, il 
più utilizzato sui Personal Computerà Permette inoltre di accedere 
afta enorme libreria di Software applicativi CP/M. 

Pat spaed {6411} 95,000 

Compilatore basic che aumenta fa velocita di esecuzione dei pro- 
grammi dì circa 40 volte. 

Accessori per Vie e Commodore 64 

Stampante plotter a colori {1520} 375.000 

SO caratteri, per linea, 4 colori, alia risoluzione di Q r 2 mm per passo. 

Unità stampa n te (MPS SOI) 

Slampa velocemente su carta normale quanto appare sul video: pro- 
grammi. lettere, dati, grafici. 

Unità stampante (1526) 

Stampante 80 colonne, bidirezionale, 60 CPS, spaziatura program- 
mabile, trazione a frizione o a trattore. 

Registratore dedicato (1530} 120.000 

Per memorizzare faci I meri te programmi e dati su normali cassette 
magnetiche. 

Floppy disk drive (1541} 630,000 

Veloce unità di memoria di massa ad alta capacità. Può immagaz- 

zinare fino a 1 70.000 caratteri su ogni stogato disco. 

Monitor monocromatico (1601} 

A fosfori verdi 12". 


Per gtocare 



Comando per giochi {Joystick! (1511) 13.500 

Permette di muoversi in tutte le direzioni, di iniziare j vari giochi di 
movimento e di ""sparare". 

Comando a manopola per giochi (Paddi*} (1 312} 22.500 

Adatto per i giochi a 2 persone, esegue movimenti in orizzontale e 
verticale, 


Commodore 4000 


CPU 16K RAM (CBM4016) 1.395,000 

18K ROM, BASIC 4.0 residente, vìdeo 40 colonne per 25 righe, 
tasti era sem ig raf ita 

CPU 32K RAM (CBM 4032) 1.495.000 

18K ROM, BASIC 4.0 residente, vìdeo 40 colonne per 25 righe, 
tastiera semi grafica. 



Doppia CPU 134K RAM (CBM 9000) 2.350.00 0 

Micro Ma in 8 rame Computer a doppia CPU (6502 - 6809) compati- 
bile con tutte le periferiche Corri modore della serie EGGO. Include 5 
linguaggi di programmazione. {COBOL, FORTRAN, TCL PASCAL, 
UCSD PASCAL, APU. 


Commodore 8000 





CPU 32K RAM (8032 $K) 1.725.000 

1BK ROM. Basic 4.0 residente,, video orientabile e basculante B0 
colonne per 25 righe, tastiera commerciale separata. 

CPU 96K RAM / 8096 SK) 2.285.000 

18K ROM. Basic 4.0 residente, video orientabile e basculante SO 
colonne per 25 righe, tastiera commerciale separata. Include sistema 
operativo PlVI/96, 



indicato per applicazioni industriali, collegamento a strumentazione, 
controllo numerico, eco. Utilizza monitor in commercio, 

CPU 128K RAM (610) 2.150.000 

CPU 128K RAM espanda bile in terna mente a- 256 K e esternamente a 
96QK, interfaccia RS232C, IEEE 488. porta utente a 8 Bit. Compa- 
tibile con tutte le periferiche Commodore della serie professionale. 
CPU 256K RAM (620) 2.550 000 

CPU 256 K RAM espandibili esternamente a 960K, Caratteristiche 
uguali ai Mod. 610, 

Monitor (1601) 285.000 

Monocromatico a fosfori verdi, 1 2", 


Commodo re 700 



CPU 128K RAM (7 10) 2.850.000 

CPU 128K RAM espandibili internamente a 256K ed esternamente a 
960 K. Video orientabile e basculante 80 colonne per 25 righe. Com- 
patibile con tutte le periferiche Commodore delle serie professional L 
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CPU 260 K ftAM {7201 3.250 000 

Monitor & colori 14" con audio. (1702) ©45.000 

Dischi 


Fkappy di* drivi (2031} 675.000 

Unità di memoria di massa ad aita velocità. Capacità 170K0. |>ivtì 
singolo. 

Floppy di* drivi {4040} 2095,000 

Unità di memoria di massa ad alta velocità. Capacità 343KB. Drive 
doppio. 

Floppy di* drivi {8030} 2.375.Q0D 

* Drive doppio 1M byte in linea. 

Floppy di* drivi (SDF 1001} 1.245,000 

Drive singolo, doppia faccia, doppia densità 2M byte in linea. 
Floppy di* drivi (8250 L-P.) 2,000 000 

Drive doppio, doppia faccia, doppia densità, 2M byte In 1 1 n sa % 

Hard disk {9060} 6.900.000 

Tecnologia Winchester* .5M byte in linea. 

Hard di* (9090} 7.425.000 

Tecnologia Winchester, 7.6M byte in linea. 



Stampini* (4023 P} 695000 

Bidirezionale ad agh i r 60 CPS r 00 colonne. 


Stampa lìti (MPP 1361} 1.276.000 

Stampante ad aghi 150 CPS, 132 colonna, bidirezionale, trascina- 
mento e trattore, 


Stampini a (6400} 3,250,000 

Stampante a margherita, 40 CPS, 135 colonne passo pica, 163 co- 
lonne passo élite , bidirezionale, utilizzabile anche con certa de bollo, 
tra sci ninnante a frizione o a trattori. 

Accesori 


Mlcroproc#t$or* 32 K RAM (MUPET 11} 2.500.000 

Per connettere, in rete fino a 16 CPU RS232, IEEE 480. Centronics. 
Il prezzo include (configurazione minima): controller, terminator, 3 
moduli, cavi, cavo IEEE/PET (per la versione $K). 

Singolo modulo addizionala; 326.000 

1 modulo 
1 cavo 6 piedi. 

Nuovo alitami operativo (PM 96} 95.000 

Per 8096SK o per 8032SK con 0 - i oppure con B • 2. Può gestire 
fino a 16 programmi residenti simultaneamente in memoria. Da a 
disposizione 20K per le variabili e 53K par i programmi. Potenzia 
inoltre II Sesie con altri comandi. 

84 K RAM (Bl} 575.000 

Scheda di ampliamento memoria par 0032 e nuovo sistema opera- 
tivo "PM 9©", 

CP/Mikar (^2} 1.450.000 

Incrementa la memorie Interne di 64K RAM e permette l'uso di 
tutti 1 programmi CP/M. 8 bit disponibili. Compatibile con la seria 
3000/4000/8000. 


Schada ad alta flioluzion* grafica (B-3) 

Compatì Di le al sistemi deh a serie 9000. 

720,000 

Cavo PET/iEEÉ 488 

tC-1} 

85.000 

Cavo IEEE 48B/IEE5 

(02} 

95,000 

Accoppi «torà acuiti co 

(8010} 

595,000 

300 baud/stìc, 




COMMODORE SHOP • L’UFFICIO 2000 

VENDITA * ASSISTENZA TECNICA * APPLICAZIONI SPECIALI • PERMUTE E OCCASIONI 

- colmare la lacuna di disinformazione attorno al 64 

- fornire uno strumento guida a tutti gli utilizzatori interessati 

- mettere a disposizione di tutti i nostri 8 anni di esperienza Commodore 

SONO LE PRIME TRE FIN ALITA' CHE CI SIAMO PROPOSTI E PER LE QUALI ABBIAMO SCRITTO IL 


C‘64 LIBRO BLU 064 


COSE? 

Una raccolta seria di "co- 
se" software e hardware 
esistenti sui 64. 

Una illustrazione dettaglia- 
ta della biblioteca pro- 
grammi: UTILITY -DEMO - 
GESTIONALI - TECNICO 
SCIENTIFICO - DIDATTI- 
CI -VARIE. 

Un approccio con ITiard- 
ware del 64 e relative peri- 
feriche per un corretto uti- 
lizzo e una prima manuten- 
zione. 


A COSA SERVE? 

Ad orientarsi nel convulso 
mondo della mi ero informa- 
tica dove, mancando una 
informazione guidata ed 
organica spesso si spreca- 
no tempo e soldi in vane ri- 
cerche. 


ACMI SERVE? 

È inutile dirlo. A tutti, 

A chi possiede già un 64 o 
un qualsiasi computer Com- 
modore, 

E a chi pensa di acquistar- 
ne uno. 


COME AVERLO? 

Basta richiederlo per posta 
0 per telefono 
Costa £ 25.000 e viene in- 
viato pagando contrasse- 
gno. 


LISTA OCCASIONI: KIT DIAGNOSTICO PER 8250 - TEST ALLINEAMEN- 
TO TESTINE PER FLOPPY 1541 - STAMPANTI AD 
AGHI E A MARGHERITA - DRIVES DA 5”. 


L’UFFICIO 2000 - Via Ripamonti, 213 - MILANO - Tel. 02/5696570/ 5696573 - APERTO ANCHE DI SABATO 




Presso i Bit Shop Primavera 

il software di casa... 



LLÀMASOFT !! 



ANIROG 


ACQUAPLANI 

Avreste mai pensato che praticare lo %d 
d'acqua potrebbe rivelarci estremamente 
pericoloso? Jack Holhs. l'autore di Acquaplani 
pensa proprio di si. Il gioco, possieda tutte le 
caratteristiche per essere avvincente ed 
entusiasmante, l a nostra abilità di sciatore sarà 
messe e dura prova- 


attack qf thè mutami camels 

M pianeta terra ha bisogno di voi. 

Gli alieni, esseri ostili .con l'impiego di una 
tecnica genetica, ha mutato i tradizionali 
cammelli, En portatori di morte. 

Protetti da neutroni divenuti alti circa 3 metri. 
Potete manovrare i nostri bombardieri che 
volano a bassa quota sul terreno mon lagnoso, 
per distruggere i cammelli prime che essi 
invadono la rocca forte. 


HEXPERT 

Beri, le piccola e doke Créatura Spaziale, che 
vive in lontano e sconosciuto pianeta e Stata 
catturata da un malvagio diavolo chiamato 
Zoganear .Questo tremendo mostro spaziale 
ha costretto Ben a partecipare ad un strano 
e mortale gioco: la costruzione di una 
piramide tridimensionale. 

Riusciremo ad evitare al nostro amico Beri 
una brutta fine? 



CDCTlPETEnEPI 

in cnmpuTEB 


...su vostra 


Z. Commodore 


&E4 

naturalmente 










